sender as..

[nark03]

У меня есть клас Tmyclass в нем поле imj:Timage, я создаю масив a:array[1..5] of Tmyclass, выводится 5 картинок. Задача состоит в том чтоб при нажатии на одной из картинок мне передавалась информация:имя и индекс массива.

[]Wowan[]

Раскажи по подробней, мож помогу, а лучше исходник выложи

[sim_84]

....
TMyClass=class
private
FOnClick: TEventHandler;
imj: TImage;
FNum: Integer;
....
public
....
property OnClick: TEventHandler read FOnClick write OnClick;
property Num: Integer read FNum write FNum;
.....
end;
....

....
constructor TMyClass.Create(...);
begin
imj.OnClick:=DoClick;
end;
.....
procedure TMyClass.DoClick(Sender: TObject);
begin
if Assigned(FOnClick) then FOnClick(Sender);
end;


.....
procedure Form1.OnFormCreate(Sender: TObject);
var i: Integer;
begin
for i:=1 to 5 do
begin
a[i]:=TMyClass.Create(...);
a[i].OnClick:=DoClick;
a[i].Num:=i;
end;
end;

procedure Form1.DoClick(Sender: TObject);
begin
lable1.Caption:=intToStr((TMyClass( Sender)).Num);
end;

Поидее должно работать. Сназванием сам разберёшся