Thema: Delphi Formulartitelleiste

Einzelnen Beitrag anzeigen

Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#2

Re: Formulartitelleiste

  Alt 12. Nov 2003, 19:52
Hi Stinger,

dazu musst Du die Windows-Botschaft WM_NCMOUSEMOVE abfangen

Delphi-Quellcode:
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  protected
    procedure WmNcMouseMove(var Msg: TWMNCMouseMove); message WM_NCMOUSEMOVE;
  public
    { Public declarations }
  end;

...

procedure TForm1.WmNcMouseMove(var Msg: TWMNCMouseMove);
begin
  ShowMessage('Maus in Form ausserhalb des Client Bereiches');
  inherited;
end;
Damit wird allerdings auch erkannt, wenn die Mouse den Rand berührt, aber das kann man ja abgfangen...

......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat