[ Syber X @ 12.08.2005. 20:11 ] @
Npr. imam 31647980 buttona na formi i ocu da klikom na svaki u neki label ispise caption tog buttona...

Kako to da uradim ?
[ Solution @ 13.08.2005. 01:58 ] @
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;

[ Syber X @ 13.08.2005. 21:34 ] @
A sta ako su vec postavljeni na formu ?
[ borovac @ 13.08.2005. 22:31 ] @
Napraviš funkciju
Code:

procedure TfMain.ClickOnButton(Sender: TObject);
begin
  lbPrikaz.Caption:= (Sender as TButton).Caption;
end;

Zatim za svaki button na OnClick event upišeš ClickOnButton(znači event povezuješ sa ovom funkcijom), tako da se ova funcija poziva kada klikneš na bilo koji button.
[ Syber X @ 14.08.2005. 21:25 ] @
Hvala!
[ borovac @ 14.08.2005. 22:03 ] @
No problem. Pa i ja jednom da nekom pomognem. jupi