Pretpostavljam da dinamicki kreiras dugmice. Potrebno je da definises OnClick dogadjaj za jedno dugme. Kasnije prilikom kreiranja ostalih dodelis im taj dogadja na sledeci nacin:
Code:
// npr ono ti je dogadjaj za JEDNO DUGME
procedure TfMain.b1Click(Sender: TObject);
begin
lbPrikaz.Caption:= (Sender as TButton).Caption;
end;
// e sada priliko dinamickog kreiranja ostalih dugmica pozoves
procedure KreirajDugmice;
begin
Button:=TButton.Create(self);
Button.OnClick:=b1Click;
end;
www.zaljubise.net - najbolji sajt za upoznavanje