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

[Muetze1]

Moin!

@Sharky: Zu deiner Code Zusammenfassung: Du könntest doch auch einfach ClientRect/BoundsRect (je nachdem) direkt benutzen der Form, dann brauchst du nicht extra ein Rectangle für die Form zusammenbauen.

MfG
Muetze1

[SirThornberry]

das flackern von Form2 verhinderst du indem du aus
form2.Show; ,
if not form2.visible then form2.show; machst.

Worauf willst du nun eigentlich reagieren? auf das verlassen des Buttons mit der Maus, auf das verlassen von form1 oder von form2?

[Stevie]

Ich hab mal etwas rumgebastelt:

Delphi-Quellcode:

unit Unit1;

interface 

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

type 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private 
    { Private-Deklarationen } 

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Point: TPoint;
begin
  with TForm2.Create(Self) do
  begin
    Point.X := Button1.Left;
    Point.Y := Button1.Top + Button1.Height;
    Point := Self.ClientToScreen(Point);
    Left := Point.X;
    Top := Point.Y;
    Show;
  end;
end;

end.

Delphi-Quellcode:

unit Unit5;

interface

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

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure WMMouseLeave(var Message: TWMMouse); message WM_MOUSELEAVE;
    procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.WMMouseLeave(var Message: TWMMouse);
var
  Point: TPoint;
begin
  GetCursorPos(Point);
  if not PtInRect(BoundsRect, Point) then
    Close;
end;

procedure TForm2.WMMouseMove(var Message: TWMMouseMove);
var
  EventTrack: TTrackMouseEvent;
begin
  EventTrack.dwFlags := TME_LEAVE;
  EventTrack.hwndTrack := Handle;
  EventTrack.cbSize := SizeOf(EventTrack);
  TrackMouseEvent(EventTrack);
  inherited;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  BorderStyle := bsNone;
end;

end.

BorderStyle hab ich auf bsNone gesetzt, weil es dann korrekt funktioniert...

[Vader]

hallo sir thornberry


reagiere auf verlassen des button's

mit if not form2.visible then form2.show;
flackert die form noch immer
mfg vader

[Vader]

hallo stevie,


dein code ist interresant, aber funzt nicht wenn ich mit der maus auf den button komme
wird die form2 hinter der form1 erzeugt und ohne fenstertitelleiste und wenn ich von den
button runterfahre bleibt die form2.


mfg vader

[Stevie]

Zitat von Vader:

dein code ist interresant, aber funzt nicht wenn ich mit der maus auf den button komme
wird die form2 hinter der form1 erzeugt und ohne fenstertitelleiste und wenn ich von den
button runterfahre bleibt die form2.

Hast du den Code so übernommen, oder modifiziert? Der Code funktioniert bei mir genau, wie er soll:
Klick auf dem Button --> Form2 geht unter dem Button auf und schließt sich erst wieder, wenn man drauf war und es wieder verlassen hat...

Zitat von Stevie:

BorderStyle hab ich auf bsNone gesetzt, weil es dann korrekt funktioniert...

Irgendwie klappt die Sache nicht so richtig, wenn das Form nen Rahmen hat, weil das WM_MouseLeave beim Verlassen des ClientBereichs entsteht...

[Vader]

hallo stevie;

ich will ja nicht auf den button klicken,sonder ich mache es mit
onmousemove , und ich will nicht auf form2 mit der maus,weil
form2 nur ein infofenster mit label's ist.

mfg vader

[Stevie]

Ok, ich dachte, weil...

Zitat von Vader:

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

Dann musste folgendes machen:

Delphi-Quellcode:

unit Unit1;

interface 

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private-Deklarationen }
    PopupForm: TForm;
  public
    { Public-Deklarationen }
    procedure WndProc(var Message: TMessage); override;
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  Point: TPoint;
begin
  if not Assigned(PopupForm) then
    PopupForm := TForm2.Create(Self);
  with PopupForm do
  begin
    Point.X := Button1.Left;
    Point.Y := Button1.Top + Button1.Height;
    Point := Self.ClientToScreen(Point);
    Left := Point.X;
    Top := Point.Y;
    Show;
  end;
end;

procedure TForm1.WndProc(var Message: TMessage);
begin
  if Message.Msg = CM_MOUSELEAVE then
    if Assigned(PopupForm) then
      if (Message.LParam = Longint(Button1)) then
        FreeAndNil(PopupForm);
  inherited;
end;

end.

[Vader]

hallo stevie,

ersten danke für deine einsatz, aber es funzt nicht,

1. die popupform kommt auf andererposition auf dem bildschirm
2. wenn ich mit der maus auf das popupfenster komme gibts eine
exception !!!

sonst gehts maus auf button >>> popupfenster kommt
maus weg vom button popupfenster <<<<weg.

mfg vader

[Sharky]

Hai Vader,

ich habe mal ein Testprojekt angehängt. Evntuell ist es ja so wie Du möchtest