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