Witam.
Mam następujący problem:
Mam tablice dwówymiarową wypełnioną SpeedButtonów. Tworzę je dynamicznie na Formie:
... var pomobj:TSpeedBtn;...
for pom1:=0 to rozmiarx-1 do
for pom2:=0 to rozmiary-1 do
begin
pomobj:=TSpeedBtn.Create(MainForm);
with pomobj do
begin
parent:=mainform;
Width:=20;
Height:=20;
top:=20*pom2;
left:=20*pom1;
end;
end;
Mam rónież procedurkę:
procedure MainForm.polozenie(x,y:integer);
begin
showmessage(inttosr(x)+inttostr(y));
end;
chcę żęby po naciśnięciu któregokolwiek z butonów, wywoływała sie ta procedurka (z parametami top i left). Ale nie wiem jak to zrobić:( Zbudowałem klasę pochodną od TspeedBtn i chciałem sam zdefiniować onclick, ale to nie jest metoda tylko raczej właściwosć czy coś takiego. Prawie działa jak napiszę pomobj.onclick:=jakiśinnybuton.onclick; ale wówczas wyświetla położenie tamtego butona, a nie tego na którego klikam. Nie działa przez sendera bo nie ma on właściwości Top, a gdy wezmę sender as TSpeedBtn to sie wypie.
Zaczynam nabierać przekonania że jestem cienki w uszach:( HELP