Здравствуйте!
Есть поле Label которое создается автоматически:
Код:
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?
Код:
title[i].OnClick:=ShellExecute (Handle, 'open', 'C:\file.doc', nil, nil, SW_SHOWNORMAL);
Этот код выдает ошибку:
Код:
Build
[Error] main_form.pas(112): Incompatible types: 'TNotifyEvent' and 'Cardinal'
[Fatal Error] Project.dpr(5): Could not compile used unit 'main_form.pas'