Ereignisprozedur ohne Klasse (Prozedurenzeiger)

[himitsu]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    class procedure NewInst(ProcessId: Cardinal; CmdLine: string; var Allow: Boolean); static;
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  OneInstance.NewInstProc := self.NewInst;
end;

Class-Methode = ohne Instanz
Static = ohne versteckten "Self"-Parameter