Как создать событие OnClick...

[zotox]

//Смотрите пост #3

[DomiNick]

компонент на форме создается через код

Программно что ли?)

Допустим на форме есть MyLabel и обработчик нажатия для него... Тогда возможно что-то вроде этого:

Var i: Integer =0; n: Integer =1;

...

Procedure TForm1.MyLabelClick(Sender: TObject);
Begin
i:=i+1;
Form1.Caption:=IntToStr(i);
End;

Procedure TForm1.Button1Click(Sender: TObject);
Var mylabel: TLabel;
Begin
mylabel:=TLabel.Create(Self);
mylabel.Parent:=Form1;
mylabel.Name:='Label'+IntToStr(n);
mylabel.Caption:='Label'+IntToStr(n);
mylabel.AutoSize:=True;
mylabel.Left:=Random(Width-100);
mylabel.Top:=Random(Height-100);
mylabel.OnClick:=Form1.MyLabelClick;
mylabel.Visible:=True;
n:=n+1;
End;

[zotox]

DomiNick спасибо! :-)

Вот такой еще вопрос...
MyLabelClick(Sender: TObject);
Если поменять на
MyLabelClick(Sender: TObject;lbl: integer);

Мне нужно чтобы можно было записывать так...

MyLabelClick(3);

Но он не пашет так (так как мешает Sender: TObject)(не твердо стою на процедурах/функциях)...

Подскажите как разрешить вот такую проблему?

[zotox]

Ап. Вопрос в посте #3 все еще интересует!

[vovk]

А зачем? Что из этого числа должно вытекать?
может вашу задумку както по другому можно сделать?

[zotox]

Сообщение от vovk

А зачем? Что из этого чиста должно вытекать?
может вашу задумку както по другому можно сделать?

Да... Можно будет по другому но будет совсем не удобно (точно щас не могу сказать можно ли это будет реализовать или нет, в разработке скажем так)
Вытекать должно следующие...

В процедуре будет массив, процедура будет выглядеть примерно так:

procedure TForm1.MyLabelClick(Sender: TObject;lbl: integer);
begin
 edit1.text:=p[lbl];
end;

Массив уже заполнен конечно же (сам массив --> переменная "p" (без ковычек))

[vovk]

да решения есть, можно при создании к примеру в tag номер записывать

....
mylabel:=TLabel.Create(Self);
mylabel.Parent:=Form1;
mylabel.Name:='Label'+IntToStr(n);
mylabel.Caption:='Label'+IntToStr(n);
mylabel.Tag:=n+5;
....
....

и использовать так

procedure TForm1.MyLabelClick(Sender: TObject;lbl: integer);
begin
 edit1.text:=p[Tlabel(Sender).Tag];
end;

или вообще Caption использовать

...
mylabel.Caption:=IntToStr(n);
...

procedure TForm1.MyLabelClick(Sender: TObject;lbl: integer);
begin
 edit1.text:=p[StrToInt(Tlabel(Sender).Caption)];
end;