Mouse Leave in Panel

[faux]

Hallo!

Wie kann ich ein MouseLeave Event im Panel Benutzen?

Also ich will, wenn die Mouse ins Panel fährt, soll eine Zahl drinnen stehn. Wenn Sie das Panel wieder verlässt, soll nicht mehr drinnen stehn!

Danke schon mal!

[faux]

OK, ich glaube es hat sich erledigt. Ich habs jetzt zwar nicht elegant gelöst, aber es funktioniert:

Ich habe das Panel in ein Panel gegeben.
Beide haben jeweils ein OnMouseMove Event.
Beim inneren kommt die Zahl, beim äuseren verschwindet sie.

Danke.

[Sharky]

Hai faux,

hier mal ein Beispiel:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.Caption := '';
end;

procedure TForm1.CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if WindowFromPoint(ptWork) = Panel1.Handle then
  begin
    Panel1.Caption := 'blubb';
  end;
end;

procedure TForm1.CMMouseLeave(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if WindowFromPoint(ptWork) <> Panel1.Handle then
  begin
    Panel1.Caption := '';
  end;
end;

[shifter]

Hi Sharky,

wie kann man das gleich Problem lösen wenn mehrere Pannels wurden in Laufzeit erstellt ?

Gruss
seba

[phXql]

Zitat:

Zitat von shifter

Hi Sharky,

wie kann man das gleich Problem lösen wenn mehrere Pannels wurden in Laufzeit erstellt ?

Gruss
seba

Die JVCL hat so ein Panel drin, da is das OnMouseLeave schon definiert..

[shifter]

Hi,

das Problemm liegt dadran das ich schaffe es einfach nicht die Package zu Instalieren.
Ich habe zwar die Neuste Version Heruntergeladen aber kommz nur sch.. raus.

Ich habe in Forum mich umgesehen aber ales hilft nicht.


gruss
seba

[Sharky]

Zitat:

Zitat von shifter

...wenn mehrere Pannels wurden in Laufzeit erstellt ?..

Hai shifter,
in diesem Fall würde ich mir einen eigenen Panaltyp von TPanel ableiten und diesen mit den beiden Ereignissen ausstatten.

[shifter]

Das ist natürlich leicht gesagt wie getan.
Ich bin nicht so weit damit ich mir eigene komp. erstellen kann .

Wenn Du aber einen beispiel für mich hättest, würde die welt anders aussehen :)

gruss
seba

[Texas]

Hi Faux
ich habe hier ein Panel was auf MouseEnter und MouseLeave Ereignisse reagier

Gruß Michael