Dinamicki Button-i

[ VladaOrt @ 17.11.2006. 08:54 ] @

Kako da menjam boju i procitam caption dinamicki kreiranih Buttona?naci,kako da pritiskom na bilo koji kreiran Button,promenim i boju i procitam caption tog Buttona?
Zahvaljujem

[ savkic @ 17.11.2006. 09:11 ] @

> kako da pritiskom na bilo koji kreiran Button,promenim i boju i procitam caption tog Buttona?

Code:

var
  btn: TButton
begin
  btn := NekaFunkcijaKojaKreiraButton;
  btn.OnClick := ButtonClickHandler;
end;

procedure TForm1.ButtonClickHandler(Sender: TObject);
begin
  ShowMessage(TButton(Sender).Caption);
  // Za promenu boje buttona se mora pisati custom paint, najbolje naslednik TButton. Lakše je da se koristi neki od third-party buttona koji
  // direktno podrzavaju promenu boje. Nisam siguran ali mozda i JVCL button ima tu osobinu, ako ne onda Raize, Quantum...
end;