Hallo, wieder hab ich ein Problem:
Ich möchte, wenn ein Datensatz gefunden wurde das zugehörige dbGrid1 das auf einem
MDI Fenster liegt, sichtbar machen, ansonsten soll es unsichtbar bleiben.
Die Prozedur bringt eine Zugriffsverletzung wenn ein Datensatz gefunden wurde, ansonsten nicht.
procedure TDataMod.ds_BestelltDataChange(Sender: TObject; Field: TField); //im dataset onChange
begin
if isFormActive('Auftragsbearbeitung') then //prüft ob Fenster geöffnet ist
if datamod.qry_bestellt.RecordCount > 0 then //wenn Datensatz gefunden soll dbGrid1 sichtbar werden
frm_orders.dbGrid1.Visible:=true else frm_orders.dbGrid1.Visible:=false;
end;
Hat jemand schon einmal das gleiche Problem gehabt und kann mir helfen.
Das wäre super nett.
LG Harry
Ist frm_orders ein
MDI Childwindow (Formstyle fsMDIChild)? Du solltest da erstmal sicherstellen, dass das Form selbst sichtbar und nicht minimiert ist bevor Du den Sichtbarkeitsstatus des Grids änderst.
Übrigens:
frm_orders.dbGrid1.Visible:= datamod.qry_bestellt.RecordCount > 0;
tuts auch, kein If-Konstrukt nötig.
