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

[Vader]

hallo,

ich möchte gerne das die form geschlossen wird wenn ich mit
dem mauszeiger die form verlasse.

wie geht das ??
mfg vader

[supermuckl]

du benutzt eine komponente die dir systemweit die mauszeiger position zurückgiebt

und dann schaust halt bei jedem mouse move ob der zeiger innerhalb deines fensters ist

komponente z.b.: "Phantom"

[CenBells]

Hallo,

was ist denn mit dem event onMouseExit? damit sollte es doch auch gehen...

Gruß
Ken

[Neuni]

Die position bekommt man auch über:

Code:

var MausPos: TPoint;
    Pos1, Pos2 : integer;

begin
GetCursorPos(MausPos);
Pos1 := MausPos.x;
Pos2 := MausPos.y;
end;

Da brauchste doch keine Komponente!

[Muetze1]

Moin!

Oder auf die WM_MOUSELEAVE Message reagieren...

MfG
Muetze1

[Nicodius]

oder prüfen ob die mouse auf dem form ist (mouse.x < form1.left...)

[Vader]

hallo,

das hift mir aber nicht sehr weiter

onmouseexit finde ich in d6 nicht, und wie ich zur mausposition
komme hilft mir auch nicht viel weiter, gibts da keinen codeschnipsel
wenn die maus aus der form ist,dann wird die form geschlossen

mfg vader

[Nicodius]

hmm ich schau nochmal

[Vader]

hallo


hab folgenden code probiert aber mit einer bauchlandung

Code:

procedure TForm2.FormCreate(Sender: TObject);
var MausPos: TPoint;
    Pos1, Pos2 : integer;

begin
GetCursorPos(MausPos);
Pos1 := MausPos.x;
Pos2 := MausPos.y;

 if pos1 and pos2 < form2.left then
 form2.Close;

end;

was ist da falsch
mfg vader

[Nicodius]

na das kann ja nicht gehn .. x udn y sind ja breiten udn längen punkte beide sind nicht so einfach imemr gleicher ^^ aber wenn ichs hab schick ichs heir!