Witam,
Posiadam dwa form'y. Na form1 stworzyłem sobie dynamicznie buttony(TBitBtn), mam na nich tekst który jest pobierany z bazy danych.
Na drugim form2 stworzyłem dynamicznie checkbox'y, które stworzone są w zależności od wyszukiwania w bazie. Tzn. wyszukuje sobie buttony z bazy i tworzone są checkbox'y, później zaznaczam sobie jakieś checkbox'y i chce żeby po przyciśnięciu buttona zmieniał się tekst w buttonach na form1. Czy mógłby mi ktoś coś podpowiedzieć?
Pozdrawiam
Form1.Button1.Caption := 'Jakis tekst';
Ewentualnie nadawaj Buttonom sensowane nazwy podczas tworzenia dynamicznego i później w kodzie np.:
TBitBtn(FindComponent('NazwaButtonaPodanaWeWlasnosciName')).Caption := 'cosik';
No ok, ale jeśli mam przypisane konkretny checkbox do konkretnego buttona. Checkbox ma name:=Id15 i button tez ma name:=Id15. Bo to co napisałeś mogłoby zadziałać tylko w przypadku kiedy mam jednego checkboxa i jednego buttona, a ja mam ich więcej...
zaznaczam checkboxa z id 3 i chce zeby button z tym samych id zmienił tekst..
Przypisz CheckBox procedurę na OnClick
Np:
procedure TForm1.StworzDynamiczneKomponenty;
begin
//...
CheckBox1.OnClick := CheckBox1Click;
//...
end;
//Coś tam...
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked Then Button1.Caption := 'Checked' Else Button1.Caption := 'not Checked';
end;
Sprawdź to