Код:
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;
http://zalil.ru/32374010 |