Automatischer Programmstart mit Übergabeparameter

[t.roller]

Man kann sich anzeigen lassen, wann welche Ereignisse auftreten:

Delphi-Quellcode:

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.