Fenster ohne Titelzeile verschieben

[Luckie]

Delphi-Quellcode:

type
  TMainForm = class(TForm)
    // ...
    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Die eigentliche Prozedur (im implemenation-Teil):
code:

Delphi-Quellcode:

procedure TMainForm.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;
  if (Message.Result = htClient) and
     (ControlAtPos(Point(Message.xPos, Message.yPos), True, True) <> nil)
  then
    Message.Result := htCaption;
end;

Stichwort für Suche: Titelleiste
[edit=fkerber] "Suchwort" eingefügt; Mfg, fkerber[/edit]
[edit=fkerber] Neu abgespeichert wg. Code-Highlighting. Mfg, fkerber[/edit]