Rahmen berührt ?

[Hawkeye219]

Hi,

du könntest die Nachricht WM_NCMOUSEMOVE abfangen:

Delphi-Quellcode:

type
  TForm1 = class (TForm)
  private
    procedure WMNCMouseMove (var aMsg: TWMNCMouseMove);  message WM_NCMOUSEMOVE;
  end;

procedure TForm1.WMNCMouseMove (var aMsg: TWMNCMouseMove);
begin
  inherited;
  Caption := Format('%d: code=%.8x', [GetTickCount, aMsg.HitTest]);
  if (aMsg.HitTest = HTRIGHT) then
    Caption := Caption + ' *rechter Rand*';
end;

Gruß Hawkeye