|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#11
26.12.2011, 18:58
|
|||
|
|||
[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;Спасибо, сделал так! |
Древовидный вид