Einzelnen Beitrag anzeigen

Benutzerbild von Motzi
Motzi

Registriert seit: 6. Aug 2002
Ort: Wien
598 Beiträge
 
Delphi XE2 Professional
 
#13

Re: Anwendung Delphi-IDE like...

  Alt 9. Nov 2004, 11:16
Nein, entweder die WndProc deiner Form überschreiben oder eine ganz normale Message-Handler-Methode schreiben...

WndProc überschreiben (sinnvoll falls du viele Messages extra behandelst):
Delphi-Quellcode:
type TForm1 = class(TForm)
  ....
  public
    procedure WndProc(var Message: TMessage); override;
  end;


procedure TForm1.WndProc(var Message: TMessage);
begin
  case Message.Msg of
    WM_GETMINMAXINFO : begin {...} end;
    // ... eventuell andre Messages behandeln
    else
      inherited;
  end;
end;
Message-Handler:
Delphi-Quellcode:
type TForm1 = class(TForm)
  ....
  public
    procedure WMGetMinMaxInfo(var Message: TMessage); message WM_GETMINMAXINFO;
  end;


procedure TForm1.WMGetMinMaxInfo(var Message: TMessage);
begin
  // ...
end;
Manuel Pöter
  Mit Zitat antworten Zitat