Du hast recht, das Onchange wird ausgeführt nur die
Db wird nicht aktuallisiert.
Ich habe folgendes geändert um das zu testen:
Delphi-Quellcode:
procedure TForm1.tvbaumChange(Sender: TObject; Node: TTreeNode);
begin
Showmessage('jetzt');
case Node.Level of
0: // Hersteller
DataModule2.TdbTable1.Locate('Hersteller_ID', Integer(Node.Data), []);
1: //Produkt
DataModule2.TdbTable2.Locate('Pr_ID', Integer(Node.Data), []);
end;
Label1.Caption:=DataModule2.TdbTable1.FieldValues['Firma'];
Label2.Caption:=DataModule2.TdbTable2.FieldValues['Bezeichung'];
Label3.Caption:=IntToStr(DataModule2.TdbTable2.FieldValues['maxl']);
Label4.Caption:=IntToStr(DataModule2.TdbTable2.FieldValues['Breite']);
end;
Das Showmessage wird immer ausgeführt, die
DB(Labels) werde nicht aktuallisiert. Warum ?
Zip mit Datendateien angehängt
An bei noch das TestProg als Zip da könnt ihr das Verhalten selbst sehen.