cxGrid RecordChanged

[Furtbichler]

'Kettenreaktion' trifft den Nagel auf den Kopf.

Delphi-Quellcode:

Procedure TMyForm.InitializeData;
Begin
  MyProductGridView.OnRecordChanged := Nil;
  Try
    LoadDataFromDatabase();
    ..
  Finally
    MyProductGridView.OnRecordChanged := MyProductGridViewRecordChangedEvent;
  End
End;

So in etwa. Natürlich alle relevanten Events vorher per ':= Nil' aushängen und hinterher wieder einhängen.

Eine Alternative ist die Verwendung eines privaten boolschen Feldes 'fInitializing'.

Delphi-Quellcode:

Procedure TMyForm.InitializeData;
Begin
  fInitializing := True;
  Try
    LoadDataFromDatabase();
    ..
  Finally
    fInitializing := False;
  End
End;

und in jedem Eventhandler

Delphi-Quellcode:

Procedure TMyForm.MyProductGridViewRecordChanged(...);
Begin
  if fInitializing then exit; // <-- diese Zeile am Anfang jedes Eventhandlers
...
End;

Beides hat Vor- und Nachteile. Ich tendiere zur 2.Möglichkeit, weil ich dadurch generell steuern kann, wann meine Events feuern sollen.

Falls die Daten schon geladen sind und dein Problem beim instantiieren der Form auftritt, dann würde ich so vorgehen

Delphi-Quellcode:

Procedure TMyForm.FormCreate(...)
Begin
  MyGridView.DataBinding.DataSource := Nil;
End;

Procedure TMyForm.FormActivate(...)
Begin
  MyProductGridView.OnRecordChanged := Nil;
  Try
    MyGridView.DataBinding.DataSource := MyDataSource;
  Finally
    MyProductGridView.OnRecordChanged := MyProductGridViewRecordChangedEvent;
  End
End;

[peberhardt]

besten dank

werde das heute abend mal testen

ich melde mich dann wieder

mfg peberhardt

[peberhardt]

Hallo,

habs jetzt doch anders hinbekommen.

Delphi-Quellcode:

procedure TDataModul_haupt.Query_MySQl_lieferantenBeforeScroll(DataSet: TDataSet);
begin
form_haupt.var_counter:='a';
end;

procedure TDataModul_haupt.Query_MySQl_produkt_gruppenBeforeScroll(DataSet: TDataSet);
begin
form_haupt.var_counter:='a';
end;

und im FocusedRecordChanged frage ich die globale variable ab...

Delphi-Quellcode:

  if var_counter = 'a' then
  begin
    du was... und zwar nur einmal....
    var_counter := 'x';
  end;

Danke für deine Mühe.

mfg
peberhardt