AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Mouse Leave in Panel

Ein Thema von faux · begonnen am 20. Nov 2004 · letzter Beitrag vom 24. Jul 2005
Antwort Antwort
Benutzerbild von faux
faux

Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
 
Turbo Delphi für Win32
 
#1

Mouse Leave in Panel

  Alt 20. Nov 2004, 10:38
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 Manuel
Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß.
GoTrillian
  Mit Zitat antworten Zitat
Benutzerbild von faux
faux

Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Mouse Leave in Panel

  Alt 20. Nov 2004, 10:42
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.
Faux Manuel
Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß.
GoTrillian
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Mouse Leave in Panel

  Alt 20. Nov 2004, 11:38
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;
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
shifter

Registriert seit: 2. Jan 2005
175 Beiträge
 
Delphi 2007 Enterprise
 
#4

Re: Mouse Leave in Panel

  Alt 21. Feb 2005, 22:26
Hi Sharky,

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

Gruss
seba
  Mit Zitat antworten Zitat
Benutzerbild von phXql
phXql

Registriert seit: 11. Mär 2004
Ort: Mühldorf
824 Beiträge
 
#5

Re: Mouse Leave in Panel

  Alt 21. Feb 2005, 22:34
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..
"Dunkel die andere Seite ist"
"Yoda! Halts Maul und iss deinen Toast!"
  Mit Zitat antworten Zitat
shifter

Registriert seit: 2. Jan 2005
175 Beiträge
 
Delphi 2007 Enterprise
 
#6

Re: Mouse Leave in Panel

  Alt 22. Feb 2005, 00:07
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
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#7

Re: Mouse Leave in Panel

  Alt 22. Feb 2005, 07:35
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.
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
shifter

Registriert seit: 2. Jan 2005
175 Beiträge
 
Delphi 2007 Enterprise
 
#8

Re: Mouse Leave in Panel

  Alt 22. Feb 2005, 14:15
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
  Mit Zitat antworten Zitat
Texas

Registriert seit: 15. Jul 2005
Ort: Laatzen
56 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#9

Re: Mouse Leave in Panel

  Alt 24. Jul 2005, 18:24
Hi Faux
ich habe hier ein Panel was auf MouseEnter und MouseLeave Ereignisse reagier

Gruß Michael
Angehängte Dateien
Dateityp: pas panelmouse_244.pas (2,1 KB, 34x aufgerufen)
Michael
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:09 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz