Sender eines Onclicks herausfinden!

it0101 · Hält's aus hier Beiträge: 15 W2k D6 Enterprise

Hi Leute

ich habe während der laufzeit des programms ein array of Tbitbtn erzeugt...

Delphi-Quelltext

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

buttonlist[a]:=TBitbtn.create(Form1);
.
.
.
.
buttonlist[a].OnClick:=Buttonclick;

als onclickprozedur folgt dann:

markieren

Delphi-Quelltext

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

procedure ButtonClick(Sender:TObject);
begin
.
.
.
end;

zu meiner frage, wie finde ich in der onclick prozedur heraus, welcher button des array das onclick ausgelöst hat?? ich wusste das mal, habs aber leider vergessen

kann mir bitte einer nen fixen tipp geben

danke im voraus

Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt.

Ehemaliges Mitglied Erhaltene Danke: 1

Ich nutze dazu das Tag-Property.

markieren

Delphi-Quelltext

1:
2:
3:
4:

case (Sender as TButton).Tag of
...
..
.

StefanH · Verfasst: Do 05.08.04 14:39

wenn du deinen BitBtns namen gibst:

markieren

Delphi-Quelltext

1:	(Sender as TBitBtn).Name

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

Udontknow · Beiträge: 2596 Win7 D2006 WIN32, .NET (C#)

Hallo!

Ich spare mir das Vergleichen von Eigenschaften (erst recht das Setzen von Tags nur zu diesem Zweck) eigentlich immer, einfach den Pointer vergleichen ist doch flotter (sowohl programmiert als auch vom Rechner ausgeführt).

markieren

Delphi-Quelltext

1:
2:

for i:=0 to Length(MyButtons)-1 do
  if Sender=MyButtons[i] then

Cu,
Udontknow

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme