Delphi Den Index zurückbekommen

Thema durchsuchen

Ansicht

Themen-Optionen

Den Index zurückbekommen

Ein Thema von Magu_ · begonnen am 19. Okt 2006 · letzter Beitrag vom 19. Okt 2006

Vorheriger Beitrag

Nächster Beitrag

Maja Jessica

Registriert seit: 16. Apr 2005
Ort: Dortmund
95 Beiträge

Delphi 4 Standard

Re: Den Index zurückbekommen

19. Okt 2006, 15:38

Hi,

du könntest bei der Erstellung der Buttons jedem Button, wie schon vorgeschlagen wurde, über eine Laufvariable eine Identnummer
in .TAG mitgeben.

zusammenfalten · markieren

Delphi-Quellcode:

			...

var x : Integer;

  x := 0;

...   

begin

    inc(x);

    Buttons[i,j]:=TButton.Create(Form1);

    Buttons[i,j].Parent:=Form1; 

    Buttons[i,j].Tag:=x;

...

Procedure ButtonWerBistDu(Sender: TObject);

begin

  if sender is TButton Then ShowMessage('Ich bin Button '+IntToStr(TButton(sender).Tag));

end;