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
Zahvaljujem
Dinamicki Button-i
Zaključano
Zakačeno
> 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;
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;
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Puno zahvaljujem na pruzenom odgovoru