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

[Vader]

hallo sharky,

danke für den proggi, aber du hast mich falsch verstanden,

1. das passt, maus auf button, popupfenster kommt.

aber ich möchte das so haben,und das ist der springende punkt:
wenn ich mit der maus dann von dem button fahre dann
soll das popupfenster wieder verschwinde.
mfg vader

[Stevie]

Zitat von 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

Zeig mal deinen kompletten Sourcecode, bei mir klappt's jedenfalls.

[Vader]

hallo,

hier mein ganzer code:

Code:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    

   
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
   

   
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, 

{$R *.dfm}




procedure TForm1.Button8MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
form2.Show;
end;


end.

Code:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Timer1Timer(Sender: TObject);
var 
  mouseCoords: TPoint; 
begin 
  GetCursorPos(mouseCoords); 
  if (mouseCoords.x < Form2.Left) or
    (mouseCoords.y < Form2.Top) or
    (mouseCoords.x > Form2.Left+Form2.Width) or
    (mouseCoords.y > Form2.Top+Form2.Height) then
      Form2.Close; 
end;

end.

mfg vader

[Stevie]

Ich häng dir jetzt einfach mal das, was ich oben geschrieben habe als Projekt an, vielleicht geht's ja dann!?

[Lefko]

Hm, warum einfach, wenn es auch kompliziert geht, nicht wahr?

Ich hab einfach ein Panel genommen, ein Label drauf und dann folgendes geschrieben:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.width := Panel1.width;
Label1.height := Panel1.Height;
Label1.Top := 0;
Label1.left := 0;
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
Form2.show;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Form2.close;
end;

Und das funktioniert wunderbar, man muss nur noch ein bisschen an der Optik feilen....

MfG Lefko

[Vader]

hallo

danke für alle dir mir geholfen haben, aber die einfachste lösung ist die beste lösung von lefko
werd das von stevie auch noch probieren.

mfg vader

[Vader]

hallo stevie,

cool dein code funzt auch , aber die popupform klebt immer
unter dem button fest, wie kann man das verändern das die form dort erscheint
wo man sie vor dem kompilieren erstellt hat.

mfg vader

[Stevie]

Zitat von Vader:

cool dein code funzt auch

Klar, hab ich doch die ganze Zeit gesagt!

Zitat von Vader:

aber die popupform klebt immer unter dem button fest, wie kann man das verändern das die form dort erscheint
wo man sie vor dem kompilieren erstellt hat.

Im OnButtonClick setze ich die Position...
Aber Vorsicht, wenn das Formular sich über dem Button öffnet, weiß ich nicht, was dann passiert...

[Lefko]

Schön, dass meine Lösung in 2 Minuten genutzt wird
Wie gesagt, ein bisschen an der Optik feilen (Label im Panel zentrieren z.B.) oder die Position der 2. Form setzen, dann sollte das genau das bringen, was gewünscht wird.

MfG Lefko

[Vader]

hallo stevie,

hab die position vom popupfenster jetzt vom button weggenommen,
kann sie jetzt so definieren wie ich will,
und auch dein weg führt nach rom,sozusagen.
mfg vader