![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Здравствуйте!
Есть поле 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' |