Tablica obiektów i zdarzenia

0

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

0

Do ADMINISTRATORA/MODERATORA - prez przypadek wystawiłem dwa posty - prosze o usunięcie tego.

// wiesz, sam mozesz usuwac swoje posty [mf]

0

Może odwołuj sie przez (Sender as TSpeedButton), chociaż w wydaje mi się że as TSpeedBtn też powinno działać.

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