[vah-smile]

Здравствуйте!
Есть поле Label которое создается автоматически:

Код:

1 2 3 4 5 6 7 8

title[i]:= TLabel.Create(ScrollBox1); title[i].Parent := ScrollBox1; title[i].Top := padding_top; title[i].Left := image_size+middle; title[i].Caption := t; title[i].Font.Style := [fsBold]; title[i].Font.Size:=13; title[i].Visible:= true;

Вопрос: как задать для title[i] (TLabel) свойство onClick?

Код:

1	title[i].OnClick:=ShellExecute (Handle, 'open', 'C:\file.doc', nil, nil, SW_SHOWNORMAL);

Этот код выдает ошибку:

Код:

1 2 3

Build   [Error] main_form.pas(112): Incompatible types: 'TNotifyEvent' and 'Cardinal'   [Fatal Error] Project.dpr(5): Could not compile used unit 'main_form.pas'

[Alegun]

Код:

1 2 3 4 5 6 7

... title[i].OnClick:= MyClick; ... Procedure TForm1.MyClick(Sender:TObject); begin ShellExecute (Handle, 'open', 'C:\file.doc', nil, nil, SW_SHOWNORMAL); end;

[vah-smile]

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

Код:

Большое СПАСИБО!
Я, просто, думал код загнать в одну строку, а получается, что для реализации этого вопроса нужно сделать свою процедуру для клика

[Alegun]

Сообщение от vah-smile

...получается, что для реализации этого вопроса нужно сделать свою процедуру для клика

Самое удивительное так это то, что можно задать всего лишь одну процедуру для всех динамических "побратимов", достаточно сделать так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

... title[i].Tag:= i; title[i].OnClick:= MyClick; ... Procedure TForm1.MyClick(Sender:TObject); begin case (Sender as TLabel).Tag of 1: // действие 1 2: // действие 2 3: // действие 3    // итд. ... end; end;

[vah-smile]

Извините за нубский вопрос (не хочу открывать новую тему): а как теперь передать в процедуру MyClick свою переменную?

Код:

1 2 3 4

procedure MyClick(Sender:TObject; var doc: string); .......... file_name:='C:\file.doc'; title[i].OnClick:=MyClick (file_name);

[Alegun]

Сообщение от vah-smile

...как теперь передать в процедуру MyClick свою переменную?

Напрямую никак - обрабатывается ведь клик от мышки, (а в неё наука вживлять данные пока ещё не научилась, только вирусы :-) передается стандартный обработчик, но можно унаследовать потомка от TLabel и добавить ему своё текстовое поле, примерно так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

...     type TMyLabel = class(TLabel) private  fTxt : string;  published    property MyText: string read fTxt write fTxt; end;   ...   var title: array of TMyLabel;   ...   title[i]:= TMyLabel.Create(ScrollBox1); title[i].MyText:= 'C:\file.doc';   ...   procedure MyClick(Sender:TObject); begin ShellExecute (Handle, 'open',(Sender as TMyLabel).MyText , nil, nil, SW_SHOWNORMAL); end;

но согласитесь, кейсом это делать значительно проще

[vah-smile]

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

Код:

СПАСИБО за помощь!

Единственная поправка: нужно перетворить тип String в PAnsiChar

Код:

1 2 3 4 5 6

procedure TForm1.MyClick(Sender:TObject); var open_file: PAnsiChar; begin   open_file:=PAnsiChar((Sender as TMyLabel).MyText);   ShellExecute (Handle, 'open', open_file, nil, nil, SW_SHOWNORMAL); end;