Labelnummer beim bpsw. OnMouseEnter - Ereignis ermitteln

kandesbunzler · Beiträge: 116 Erhaltene Danke: 1 Delphi 7, XE2

Hallo allerseits,

wie ermittle ich beim bspw. OnMouseEnter - Ereignis bspw. die entsprechende Labelnummer?

Danke und auf bald ...
kandesbunzler.

Narses · Verfasst: Di 16.09.08 09:50

Moin!

kandesbunzler hat folgendes geschrieben:

wie ermittle ich beim bspw. OnMouseEnter - Ereignis bspw. die entsprechende Labelnummer?

Du könntest mit FindComponent arbeiten (nicht zu empfehlen), das Components-Array der Form absuchen (das schon eher) oder einfach beim Anlegen in der .Tag-Eigenschaft der Labels eine Ordnungszahl unterbringen. :idea:

Dann kannst du so darauf zugreifen: (Sender as TLabel).Tag

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Dunkel · Beiträge: 682 Mac OS X Snow Leopard Xcode 3.1

Dafür ist der Parameter Sender vom Typ TObject zuständig. Einfach nach TLabel casten und den Namen ermittel.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Label1Click(Sender: TObject);
begin
  if TLabel(Sender).Name = 'Label1' then
    Caption := 'OK';
end;

_________________
Ich streite einsam mich mit dieser Oberflächenwelt
Gutes sei ein löblich Brot von dem ich zehre - bis zum Tod [Das Ich - Im Ich]

Narses · Verfasst: Di 16.09.08 09:57

Moin!

Diese Typecasts kann ich nicht empfehlen:

Dunkel hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Label1Click(Sender: TObject);
begin
  if TLabel(Sender).Name = 'Label1' then
    Caption := 'OK';
end;

weil: wenn das mal kein TLabel sein sollte (wer recycled keine Methoden :zwinker:

), dann gibt´s eine unklare AV, mit dem as-Operator gibt´s eine eindeutige AV mit entsprechendem Hinweis! :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Dunkel · Beiträge: 682 Mac OS X Snow Leopard Xcode 3.1

Narses hat folgendes geschrieben:

Diese Typecasts kann ich nicht empfehlen:

Da hast Du natürlich absolut recht!

_________________
Ich streite einsam mich mit dieser Oberflächenwelt
Gutes sei ein löblich Brot von dem ich zehre - bis zum Tod [Das Ich - Im Ich]

kandesbunzler · Beiträge: 116 Erhaltene Danke: 1 Delphi 7, XE2

Hallo allerseits

und danke für die Infos.

Folgende Nachfrage habe ich noch.

Wie kann ich eine Auswertung/Übergabe in folgender Form durchführen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

var LabelName : string;
begin
  LabelName := TLabel(Sender).Name;
  LabelName.font.style := LabelName.font.style + [fsunderline];
end;

In Z(eile)4 erhalte ich die Fehlermeldung, daß 'Record, Objekt oder Klassentyp erforderlich' sind.

Fehlt mir hier evtl. eine Konvertierung oder was mache ich falsch?

Auf bald ...
kandesbunzler.

Moderiert von Narses: Delphi-Tags hinzugefügt

BenBE · Verfasst: Di 16.09.08 13:09

Narses hat folgendes geschrieben:

Moin!

kandesbunzler hat folgendes geschrieben:

wie ermittle ich beim bspw. OnMouseEnter - Ereignis bspw. die entsprechende Labelnummer?

Du könntest mit FindComponent arbeiten (nicht zu empfehlen), das Components-Array der Form absuchen (das schon eher)

@Narses: Was denkst Du, was FindComponent tut??? :mahn:

Narses hat folgendes geschrieben:

oder einfach beim Anlegen in der .Tag-Eigenschaft der Labels eine Ordnungszahl unterbringen. :idea:

Warum so kompliziert? Sender abfragen ... und das "Label" einfach vorne wegschneiden ;-)

Narses hat folgendes geschrieben:

Dann kannst du so darauf zugreifen: (Sender as TLabel).Tag

cu
Narses

Close ...

markieren

Delphi-Quelltext

1:	LabelNummer := StrToIntDef(Copy(TLabel(Sender).Name, 6, MaxInt), -1);

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

Boldar · Verfasst: Di 16.09.08 13:11

kandesbunzler hat folgendes geschrieben:

Hallo allerseits

und danke für die Infos.

Folgende Nachfrage habe ich noch.

Wie kann ich eine Auswertung/Übergabe in folgender Form durchführen:

...
Z1 var LabelName : string;
Z2 begin
Z3 LabelName := TLabel(Sender).Name;
Z4 LabelName.font.style := LabelName.font.style + [fsunderline];
Z5 end;

In Z(eile)4 erhalte ich die Fehlermeldung, daß 'Record, Objekt oder Klassentyp erforderlich' sind.

Fehlt mir hier evtl. eine Konvertierung oder was mache ich falsch?

Auf bald ...
kandesbunzler.

einfach mit

markieren

Delphi-Quelltext

1:	if (sender is Tlabel) then (sender as Tlabel).font.style := (sender as Tlabel).font.style + [fsunderline];

BenBE · Verfasst: Di 16.09.08 13:20

Boldar hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:	if (sender is Tlabel) then (sender as Tlabel).font.style := (sender as Tlabel).font.style + [fsunderline];

Da ich das häufiger sehe, hier ein Hinweis:

Mit Variable is TLabel wird ts eine Typenprüfung vorgenommenberei, diese wird aber auch mit (sender as Tlabel ausgeführt. in der oben zitierten Zeile wird also 3 Mal geprüft, welchen Typ Sender hat, obwohl schon nach der ersten Prüfung feststeht, dass die beiden anschließenden Konvertierungen nicht fehlschlagen können*

Daher sollte man obige Zeile lieber so schreiben:

markieren

Delphi-Quelltext

1:	if (sender is Tlabel) then TLabel(sender).font.style := TLabel(sender).font.style + [fsunderline];

*Heisen-Bugs mal ausgeschlossen; deren Existenz zeigt aber sowieso schlechten Code an.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

Narses · Verfasst: Di 16.09.08 13:23

Moin!

BenBE hat folgendes geschrieben:

Narses hat folgendes geschrieben:

kandesbunzler hat folgendes geschrieben:

wie ermittle ich beim bspw. OnMouseEnter - Ereignis bspw. die entsprechende Labelnummer?

Du könntest mit FindComponent arbeiten (nicht zu empfehlen), das Components-Array der Form absuchen (das schon eher)

@Narses: Was denkst Du, was FindComponent tut??? :mahn:

Die Namen der Instanzen (String-)vergleichen, statt die Instanzadressen? :zwinker:

BenBE hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:	LabelNummer := StrToIntDef(Copy(TLabel(Sender).Name, 6, MaxInt), -1);

Dazu hab´ ich oben schon was gesagt... :roll:

und dann das von dir...

also wirklich... *kopfschüttel*

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

BenBE · Verfasst: Di 16.09.08 13:28

Narses hat folgendes geschrieben:

BenBE hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:	LabelNummer := StrToIntDef(Copy(TLabel(Sender).Name, 6, MaxInt), -1);

Dazu hab´ ich oben schon was gesagt... :roll:

und dann das von dir...

also wirklich... *kopfschüttel*

Ich programmier ordentlich(tm) ;-)

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme