(sender:tobject)

Zalozmy, ze mam taka procedure:

Procedure tform1.klikanie(sender:tobject);
begin
(...)
end;

ktora jest wywolywana przez wiele batonow. Jak zwrocic do stringa nazwe batona, ktory ja wywolal??? hmm...

Z gory THX!

edit1.Text:=(Sender as TButton).Name;--Delphi 6
Pozdrowienia{hello} ,
Moderator Imperior

W moim przypadku nie dzala ;( hmm... . Przedstawie szerzej problem. Właściwie chodzi mi nie o batony a o tablice elementow typu TImage, ktore sa tworzone dynamicznie. W form1create Wolne[1..30] przyjmuja wartosc true. W momencie gdy tworze nowy TImage o nazwie balon[i] Wolne[i] przyjmuje wartosc false. Teraz w momencie wywolania procedurki klikanie, ktora zwalnia balon[i], chcialbym otrzymac indeks elementu z tablicy balon[1..30], ktory zostal klikniety aby wolne[i] zmienic na true. po to byl mi string, gdyz chcialem z niego to wyciagnac, ale z uzywajac (sender as timage). name wali bledami :(. Niewiem czy jasno?

(...)

var
Form1: TForm1;
wolne:array[1..30] of boolean;
balon:array[1..10] of timage;

implementation

{$R *.DFM}

(...)

procedure TForm1.klikanie(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
sender.Free;
end;

(...)

end.

Nie zawracajcie juz sobie glowy ;)
Wyplatalem sie z tych tablic i wszystko mi dziala {brawo}

Pozdrawiam {browar}