Label unter Mausposition

**Lilo**

tach...

und zwar hab ich folgendes problem ^^
ich habe eine form und auf dieser befinden sich ca 30 label... ich will auf die label eine art rolloverefekt haben und en bissl was anderes... und hab nicht unbedingt lust für jedes label ne prozedur zu machen ^^ es soll quasi auf der form bei mousemove eine prozedur rein die prüft ob meine maus über einem label ist und wenn ja, dann brauche ich den name des labels.

ist das einfach möglich? oder ist das mit anderen componenten einfacher? wie statictext oder so...

**faux**

So müsste es gehen:

markieren

Delphi-Quellcode:

			procedure TFormname.OnLabelMouseMove(Sender: TObject......);

var

  LabelName: String;

begin

  LabelName := (Sender as TLabel).Name;

end;

Einfach jedes Label mit dieser Procedure im OnMouseMove verlinken.

Grüße
Faux

**marabu**

Hi Lilo,

alternativ kannst du bei den TLabel-Komponenten auch mit OnMouseEnter() und OnMouseLeave() arbeiten - je nachdem was du vorhast.

Grüße vom marabu

**faux**

Mir ist noch eingefallen, du du mit dem namen nicht viel machen kannst (außer mit der API-FUnktion FindComponent weiter arbeiten). Es wäre sinnvoller wenn du gleich auf die Eigenschaft die du verändern willst (oder auf die Procedure, etc.) zugreifst. Also zB

(Sender as TLabel).Color := clGreen;

**negaH**

markieren

Delphi-Quellcode:

			procedure TForm1.MouseMove();

var

  C: TControl;

begin

  C := Controls.FindDragTarget(ClientToScreen(Point(X, Y)), True);

  if C is TLabel then

  begin

  end;

end;

Gruß Hagen

**Lilo**

Zitat von negaH:

markieren

Delphi-Quellcode:

			procedure TForm1.MouseMove();

var

  C: TControl;

begin

  C := Controls.FindDragTarget(ClientToScreen(Point(X, Y)), True);

  if C is TLabel then

  begin

  end;

end;

Gruß Hagen

das funzt irgendwie nicht... hab bei unit qcontrols eingetragen aber das finddragtarget mkennt der irgendwie nicht... fehlt da noch was?

die varianten von oben sind nicht gut da ich dann wieder auf jedes label ne prozedur machen muss ^^ ich will quasi über eine prozedure das verhalten von 30 labels koordinieren ^^

**n0b0dy**

@Lilo

die methode von faux ist aber genau das, was du suchst. diese EINE procedure wird jedem Label zugeordnet und fertig. über den Sender kannste dann den namen bekommen. wie oben
beschrieben

(Sender as TLabel).Name wobei ich es immer so mache (geschmackssache):

TLabel(Sender).Name;
MfG

**negaH**

wieso "QControls" ? davon war nie die rede das du unter Kylix entwickelst, hast du mal die Hilfe bemüht ??

Wichtig ist noch eines: FindDragTarget() findet ALLE Controls der gesamten Anwendung, also auch diejenigen die sich in anderen Forms befinden. Du solltest also mit

if (C is TLabel) and (C.Owner = Self) then sicherstellen das du nur die Labels des Forms ansprichst.

Gruß Hagen

**faux**

Wo liegt eigentlich der Unterschied zwischen Hagens und meiner Methode?

**n0b0dy**

@faux.

also ich denke mal, Hagen sucht über die MouseMove Funktion des Formulars, oder?

Label unter Mausposition

Label unter Mausposition

Re: Label unter Mausposition

Re: Label unter Mausposition

Re: Label unter Mausposition

Re: Label unter Mausposition

Re: Label unter Mausposition

Re: Label unter Mausposition

Re: Label unter Mausposition

Re: Label unter Mausposition

Re: Label unter Mausposition

Forumregeln

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#3 Re: Label unter Mausposition 13. Sep 2005, 18:26 Hi Lilo, alternativ kannst du bei den TLabel-Komponenten auch mit OnMouseEnter() und OnMouseLeave() arbeiten - je nachdem was du vorhast. Grüße vom marabu
	Zitat

negaH Registriert seit: 25. Jun 2003 Ort: Thüringen 2.950 Beiträge	#5 Re: Label unter Mausposition 13. Sep 2005, 18:38 markieren Delphi-Quellcode: procedure TForm1.MouseMove(); var C: TControl; begin C := Controls.FindDragTarget(ClientToScreen(Point(X, Y)), True); if C is TLabel then begin end; end; Gruß Hagen
	Zitat

n0b0dy Registriert seit: 12. Sep 2005 Ort: Hessen 268 Beiträge	#7 Re: Label unter Mausposition 13. Sep 2005, 19:12 @Lilo die methode von faux ist aber genau das, was du suchst. diese EINE procedure wird jedem Label zugeordnet und fertig. über den Sender kannste dann den namen bekommen. wie oben beschrieben (Sender as TLabel).Name wobei ich es immer so mache (geschmackssache): TLabel(Sender).Name; MfG
	Zitat

faux Registriert seit: 18. Apr 2004 Ort: Linz 2.044 Beiträge Turbo Delphi für Win32	#9 Re: Label unter Mausposition 13. Sep 2005, 19:15 Wo liegt eigentlich der Unterschied zwischen Hagens und meiner Methode? Faux Manuel Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß. GoTrillian
	Zitat

n0b0dy Registriert seit: 12. Sep 2005 Ort: Hessen 268 Beiträge	#10 Re: Label unter Mausposition 13. Sep 2005, 19:17 @faux. also ich denke mal, Hagen sucht über die MouseMove Funktion des Formulars, oder?
	Zitat