Form schliessen wenn die Maus das Form verlässt.

[Kostas]

Jetzt funkts endlich. !!!!!

Ich muss nur einfach den Rahmen um zwei Pixel umlaufend kleiner machen.
Und die Welt ist wieder in Ordnung. So einfach ist das, und hat drei Tage
Arbeit gemacht.

Herzlichen Dank an Alle und bitte sogleich um Verzeihung.
Gruß Kostas

Delphi-Quellcode:

private 
    { Private declarations } 
    Procedure WMMouseLeave(Var Msg: TMessage); Message CM_MOUSELEAVE; 
  end; 


var 
  frSecondForm: TSecondForm; 

implementation 
{$R *.dfm} 

procedure TSecondForm.WMMouseLeave(var Msg: TMessage); 
var fb:TRect;
    mp:TPoint;
begin 
  mp := Mouse.CursorPos;
  fb := SecondForm.BoundsRect;
  fb.left := fb.left + 2;
  fb.Right := fb.Right - 2;
  fb.Top := fb.Top + 2;
  fb.Bottom := fb.Bottom - 2;

  if not PtInRect(fb, mp) 
  then SecondForm.close; 

end;