Verwendung von SENDER so moeglich?

Bockscar · Beiträge: 105

Es gibt 37 Labels und beide sollen bei ONCLICK die gleiche Prozedur aufrufen, aber sich darin unterscheiden:

Delphi-Quelltext

1:
2:
3:

if sender = l_table0 then number := 0;
if sender = l_table1 then number := 1;
//etc.

Also je nachdem welches Label der Sender ist, ist auf ne andere Zahl auf dem Spielfeld gedrückt worden.

Bevor ich da jetzt 37 mal das so mache ... gibt es da irgendwie ne andere möglichkeit das umzusetzen?

(CASE OF wollte nicht funktionieren)

gruß

Moderiert von Gausi: Topic aus Sonstiges (Delphi) verschoben am Sa 11.02.2006 um 21:14

Gausi · Verfasst: Sa 11.02.06 21:13

Bei sowas kann man gut den Tag des Sender einsetzen. Einfach in den 37 Labels den Tag von 1-37 setzen, und dann mit Case arbeiten.
Aber dein Weg sollte auch gehen.

_________________
We are, we were and will not be.

Bockscar · Beiträge: 105

also case sender.tag of ... ?

F34r0fTh3D4rk · Verfasst: Sa 11.02.06 21:16

Bockscar hat folgendes geschrieben:

Es gibt 37 Labels und beide sollen bei ONCLICK die gleiche Prozedur aufrufen, aber sich darin unterscheiden:

irgendwie ist das widersprüchlich Oo

Gausi · Verfasst: Sa 11.02.06 21:20

Ich weiß nicht genau, wie deine komplette Prozedur aussehen soll, evtl. geht ja sogar:
number := Sender.Tag; - Aber ja: Case Sender.Tag of... sollte gehen.

_________________
We are, we were and will not be.

Bockscar · Beiträge: 105

thx.

PS: das war widersprüchlich weil ich das beispiel erst an 2 labels erläutern wollte und dann doch eher 37 genommen habe

Bockscar · Beiträge: 105

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure Tspielflaeche.label_pleinclick(Sender: TObject);
var bet :integer;
begin
bet := Sender.Tag;
label2.Caption := inttostr(number);
croupier.brettclick('plein',bet);
end;

also das funktioniert jetzt irgendwie nich

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme