Form schliessen, wenn der Cursor weg ist

[taktaky]

Hallo,

wie kann ich ein Form schließen ohne Klick, wenn der Cursor weg auf dem Form ist?


----

[DeddyH]

Alt-F4?

[taktaky]

Zitat von DeddyH:

Alt-F4?

Ja aber das ist unpraktisch für die User

Gibt es keine OnMouseLive
Das Form wird mit OnMouseOver aufgrufen und möchte gerne beim beenden auch genauso

Aber wie ich sehe es gibt in Form Events keine OnMouseLive

_______

[DeddyH]

OnMouseLeave?

[taktaky]

Zitat von DeddyH:

OnMouseLeave?

ja genau. Aber dies gibt es nicht in Form Events!
Sonst wäre einfacher

--

[DeddyH]

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
  private
    { Private-Deklarationen }
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.CMMouseLeave(var Msg: TMessage);
begin
  inherited;
  Close;
end;

end.

[taktaky]

Dein Code ist viel besser als was ich gerade geplant habe
ich habe Konturen auf Form2 erstellt und dann OnMouseOver, Form2.Close();

Ist auch eine Lösung aber Umweg

Danke

----

[taktaky]

Ich habe einen Nachteil enteckt in Deinen Code und auch in meinen Code

Und zwar wenn ich den Cursor plitz schnell weg von dem Form2 mache dann wird Form2 nicht beendet. Nur wenn ich den Cursor langsam bewege!

Was kann man dagegen tun?
oder einen Timer verwenden?

___

[DeddyH]

Auch eine Möglichkeit.

[taktaky]

Zitat von DeddyH:

Auch eine Möglichkeit.

ein neues Thema habe ich erstellt:
http://www.delphipraxis.net/internal...=784898#784898