Mam takie problem do rozgryzienia.
Komponent DBGrid (powiązany z tabelą SQL), pod nim umieściłem kilka TLabeli.
Chciałbym obsłużyć moment, kiedy użytkownik zmieni wiesz w DBGridzie - to powinno spowodować zmianę wstawionych Labeli.
Dla funkcji kliknięcia myszą działa OK.
- Kod: Zaznacz cały
void __fastcall TOkno_glowne::DBGrid1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
OtZ_TKlient_kontrola_bazy();
}
A dla funkcji:
- Kod: Zaznacz cały
if (Key == VK_UP || Key == VK_DOWN || Key == VK_PRIOR || Key == VK_NEXT || Key == VK_HOME || Key == VK_END)
{
OtZ_TKlient_kontrola_bazy();
Key = 0;
}
funkcja - owszem - wykonuje siÄ™, ale... komponenty Label siÄ™ nie zmieniajÄ….
treść OtZ_TKlient_kontrola_baz wygląda tak:
- Kod: Zaznacz cały
void __fastcall TOkno_glowne::OtZ_TKlient_kontrola_bazy()
{
Label134->Caption = DataModule2->OtZ_ADOTKlient->Fields->FieldByName("NAZWISKO")->AsString;
Label135->Caption = DataModule2->OtZ_ADOTKlient->Fields->FieldByName("IMIE")->AsString;
Label141->Caption = DataModule2->OtZ_ADOTKlient->Fields->FieldByName("TELEFON")->AsString;
Memo7->Text = DataModule2->OtZ_ADOTKlient->Fields->FieldByName("UWAGI")->AsString;
ShowMessage("OK !!!");
}
//---------------------------------------------------------------------
Gdzie popełniłem błąd ?