Npr. imam 31647980 buttona na formi i ocu da klikom na svaki u neki label ispise caption tog buttona...
Kako to da uradim ?
Kako to da uradim ?
Ista komanda za masu buttona ?
Zaključano
Zakačeno
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;
// 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;
Potpis
www.zaljubise.net - najbolji sajt za upoznavanje
A sta ako su vec postavljeni na formu ?
Napraviš funkciju
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.
Code:
procedure TfMain.ClickOnButton(Sender: TObject);
begin
lbPrikaz.Caption:= (Sender as TButton).Caption;
end;
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.
Hvala!
No problem. Pa i ja jednom da nekom pomognem. jupi