Forum: Datenbanken
Delphi
by shmia,
24. Feb 2005
Dann muss man noch abfragen, ob Field = nil ist:
if Assigned(Field) then
if Field.FieldName='Status' then
.......
Forum: Datenbanken
Delphi
by shmia,
24. Feb 2005
Also eher so:
procedure Tfrmdata.dsauftragDataChange(Sender: TObject; Field: TField);
begin
if Field.FieldName='AStatus' then
begin
// in einem ganz bestimmten Feld (Name hier: 'AStatus') hat sich was geändert
// jetzt müssen wir eine "Lookup" Aktion durchführen
//
Assert(tbstatus.Active); // Tabelle muss offen sein, sonst geht nix
Forum: Datenbanken
Delphi
by shmia,
24. Feb 2005
Genau so ist es. Rat mal, warum der Parameter Field übergeben wird:
procedure Tfrmdata.dsauftragDataChange(Sender: TObject; Field: TField);
begin
frmmain.Panel1.Color:= Field.AsInteger;
end;