unit Unit1;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
Vcl.StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ApplicationIdle(Sender: TObject;
var Done: Boolean);
procedure FormActivate(Sender: TObject);
procedure FormClick(Sender: TObject);
procedure FormDblClick(Sender: TObject);
procedure FormHide(Sender: TObject);
procedure FormKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
procedure FormKeyPress(Sender: TObject;
var Key: Char);
procedure FormKeyUp(Sender: TObject;
var Key: Word; Shift: TShiftState);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseEnter(Sender: TObject);
procedure FormMouseLeave(Sender: TObject);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormResize(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ApplicationIdle(Sender: TObject;
var Done: Boolean);
begin
Application.OnIdle :=
nil;
Memo1.Lines.Add('
ApplicationIdle: '+formatdatetime('
hh:nn:ss.zzz', TIME));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Memo1.Lines.Add('
Activate: '+formatdatetime('
hh:nn:ss.zzz', TIME));
end;
procedure TForm1.FormClick(Sender: TObject);
begin
Memo1.Lines.Add('
OnClick: '+formatdatetime('
hh:nn:ss.zzz', TIME));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Lines.Add('
Create: '+formatdatetime('
hh:nn:ss.zzz', TIME));
Application.OnIdle := ApplicationIdle;
end;
procedure TForm1.FormDblClick(Sender: TObject);
begin
Memo1.Lines.Add('
OnDblClick: '+formatdatetime('
hh:nn:ss.zzz', TIME));
end;
procedure TForm1.FormHide(Sender: TObject);
begin
Memo1.Lines.Add('
OnHide: '+formatdatetime('
hh:nn:ss.zzz', TIME));
end;
procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
Memo1.Lines.Add('
OnKeyDown: '+formatdatetime('
hh:nn:ss.zzz', TIME));
end;
procedure TForm1.FormKeyPress(Sender: TObject;
var Key: Char);
begin
Memo1.Lines.Add('
OnKeyPress: '+formatdatetime('
hh:nn:ss.zzz', TIME));
end;
procedure TForm1.FormKeyUp(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
Memo1.Lines.Add('
OnKeyUp: '+formatdatetime('
hh:nn:ss.zzz', TIME));
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Memo1.Lines.Add('
OnMouseDown: '+formatdatetime('
hh:nn:ss.zzz', TIME));
end;
procedure TForm1.FormMouseEnter(Sender: TObject);
begin
Memo1.Lines.Add('
OnMouseEnter: '+formatdatetime('
hh:nn:ss.zzz', TIME));
end;
procedure TForm1.FormMouseLeave(Sender: TObject);
begin
Memo1.Lines.Add('
OnMouseLeave: '+formatdatetime('
hh:nn:ss.zzz', TIME));
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Memo1.Lines.Add('
OnMouseUp: '+formatdatetime('
hh:nn:ss.zzz', TIME));
end;
procedure TForm1.FormResize(Sender: TObject);
begin
Memo1.Lines.Add('
OnFormResize: '+formatdatetime('
hh:nn:ss.zzz', TIME));
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Memo1.Lines.Add('
Show: '+formatdatetime('
hh:nn:ss.zzz', TIME));
end;
end.