Zugriff auf GroupBox im MDI child von Datenmodul aus

[HCB]

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

[himitsu]

Man nehme den Debugger,
setze einen Haltepunkt in diese Methode
und schaue sich erstmal an was z.B. frm_orders oder frm_orders.dbGrid1 für Werte haben.

Und mindestens kann man im Debugger auch mal nachehen, in welcher Zeile es knallt.


Ansonsten seh ich hier erstmal keinen schlimmen Fehler,
jedenfalls Keinen, der nur bei >0 knallen sollte.



Was isFormActive macht, wurde nicht gesagt,
aber OK, angeblich soll dort kein Fehler drin sein.

Unnötig viele Quellcodes sind kontraproduktiv.
* Alles doppelt zu sagen, was man auch so im Code sieht, lenkt nutzlos ab
* und wenn man "einfachen" Code erklären muß, dann sollte man mal drüber nachdenken, warum der Code sich nicht selbst erklärt.

Zitat:

Delphi-Quellcode:

if irgendwas then etwas:=True else etwas:=False;

Ahhhhhh, ja. :stupid:

Delphi-Quellcode:

if isFormActive('Auftragsbearbeitung') then
  frm_orders.dbGrid1.Visible := datamod.qry_bestellt.RecordCount <> 0;

Den Knopf mit dem Delphi-Helm hast du im Editor gesehen?
[delphi] dein Code [/delphi]

[Uwe Raabe]

Wenn frm_orders schon das Form "Auftragsbearbeitung" darstellt, warum dann die Funktion isFormActive('Auftragsbearbeitung') und nicht die direkte Abfrage in frm_orders? Oder stimmt meine Prämisse vielleicht gar nicht?

[HCB]

Es wird im OnChange Ereignis im Dataset beim Wechseln des Datensatzes geprüft ob recCount > 0 ist. OnChange wird schon vorm Erstellen des Fensters "Auftragsbearbeitung" aufgerufen und bringt gleich die Zugriffsverletzung. Deshalb soll nur beim aktiven Fenster die Procedur ausgeführt werden.

Mit dem Debugger erkenne ich nur, dass beim Zugriff auf das dbGrid.visible die Zugriffsverletzung ausgerufen wird. Die Form ist aber schon erstellt und sichtbar.
Das ist das Problem was ich nicht verstehe (naja bin ja auch Anfänger).

LG Harry

[himitsu]

Zitat:

Zitat von HCB (Beitrag 1519069)

Mit dem Debugger erkenne ich nur, dass beim Zugriff auf das dbGrid.visible die Zugriffsverletzung ausgerufen wird. Die Form ist aber schon erstellt und sichtbar.

Steht auch DIESE gewünschte Form in der Variable "frm_orders" drin?

Aber wenn "frm_orders" ungültig ist, dann sollte es auch beim Visible:=False knallen und nicht nur beim :=True. :gruebel:

[HCB]

Ja, frm_orders steht drin. Ich habe das mit einer modalen Form probiert, da gibt es keine Schwierigkeiten, außer dass die Form jetzt außerhalb der Anwendung angezeigt wird. Es scheint also mit dem MDI child zusammenzuhängen, da funktioniert aus irgendwelchen Gründen nicht der Zugriff um das DBGrid unsichtbar zu machen.

Weiß jemand, wie ich die modale Form in die MDIForm unterbringe? Parent funktioniert insoweit, dass das Fenster links oben in der Anwedung platziert wird und sich nicht mehr verschieben lässt.

Es ist alles sehr, sehr mühselig wenn man nur eine geringe Ahnung von der Materia hat :oops:

[peterbelow]

Zitat:

Zitat von HCB (Beitrag 1519065)

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:

Delphi-Quellcode:

frm_orders.dbGrid1.Visible:= datamod.qry_bestellt.RecordCount > 0;

tuts auch, kein If-Konstrukt nötig. :)

[HCB]

Danke Peter für den Tipp:

Übrigens:
frm_orders.dbGrid1.Visible:= datamod.qry_bestellt.RecordCount > 0; tuts auch, kein If-Konstrukt nötig.

Wusste ich bisher gar nicht.

LG Harry

P.S. Hast du vielleicht noch mehr Beispiele wie man mit kürzerem Code die gleiche Wirkung erzielt?