![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#11
|
|||
|
|||
![]() [quote=NumLock]
Код:
type TForm1 = class(TForm) Button1: TButton; CheckBox1: TCheckBox; ApplicationEvents1: TApplicationEvents; Label1: TLabel; Edit1: TEdit; procedure ApplicationEvents1Hint(Sender: TObject); ... procedure TForm1.ApplicationEvents1Hint(Sender: TObject); begin Label1.Caption:=Application.Hint; end; Спасибо, сделал так! |