[Delphi] Jak To Sprawdzić !!!

0

<font color="red">Cześć !</span>
Mam mały problem...
Stworzyłem sobe kilka Buttonów dynamicznie i każdemu przypisałem taką samą procedurę która ma byc wywoływana po ich naciśnięci (np. Showmessage). Problem polega na tym, ze nie wiem jak sprawdzić który przycisk został naciśnięty.

Trebuczet - TurboPascal, ObjectPascal, Delphi, C, C++, OpenGL.

0

if Sender is Button1 then
ShowMessage('Został naciśnięty przycisk 1);
if Sender is Button2 then
ShowMessage('Został naciśnięty przycisk 2);

i tak dalej - ale pewny nie jestem... :)

0

Bzdura. Najlepiej ustawić tag buttonów i sprawdzać po tagu lub zrobić tak:

if Sender = Button1 then...
if Sender = Button2 then...

0

ShowMessage('Został naciśnięty przycisk '+(Sender as TButton).Name+' z opisem '+(Sender as TButton).Caption);

1 użytkowników online, w tym zalogowanych: 0, gości: 1