Form schließen wenn Mauszeiger d.Form verläßt ?

[Vader]

hallo

das mit "WMMouseLeave" funzt super aber das beispiel von stevie bezieht sich nur auf form1

bei meinem proggi schaut das so aus, auf der form1 ist ein button wenn ich mit dem mauszeiger
drauffahre öffnet sich die form2, und wenn ich mit dem mauszeiger den button verlasse schließt sich die
form2.


wie soll ich jetzt die beiden codes aufteilen auf uni1 und uni2

Code:

private 
    { Private-Deklarationen } 
  protected 
    procedure WMMouseLeave(var Message: TWMMouse); message WM_MOUSELEAVE; 



procedure TForm1.WMMouseLeave(var Message: TWMMouse); 
begin 
  Close; 
end;

Code:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
var 
  EventTrack: TTrackMouseEvent; 
begin 
  EventTrack.dwFlags := TME_LEAVE; 
  EventTrack.hwndTrack := Handle; 
  EventTrack.cbSize := SizeOf(EventTrack); 
  TrackMouseEvent(EventTrack); 
end;

mfg vader