Einzelnen Beitrag anzeigen

Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.027 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#8

Re: Ereignisbehandlung im DBGrid

  Alt 22. Jul 2004, 08:58
So funktioniert die vorrübergehende Abschaltung! Allerdings musst du auch das Objekt für das OnChange angeben, also:
Delphi-Quellcode:
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
var
  Tmp: TNotifyEvent;
begin
  if Table1.SelectedField = soundso then
    with Table1.FieldByName('sal1') do
    begin
      Tmp := OnChange;
      OnChange := nil;
      Value := Table1.FieldValues['salary'] * 1.16;
      OnChange := Tmp;
    end
  else
    with Table1.FieldByName('sal2') do
    begin
      Tmp := OnChange;
      OnChange := nil;
      Value := Table1.FieldValues['salary'] / 1.16;
      OnChange := Tmp;
    end;
end;
P.S.: Bitte benutz die Delphi-Tags!
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat