einen Button Disabled setzen

[Jasocul]

Ja das siehst du falsch. Wenn eine Form geschlossen wird, bleibt der Button trotzdem enabled.
Zum Problem:
benutzt du den richtigen Zähler?

Delphi-Quellcode:

if  frmmain.zaehler<>0 then // Probier das mal
    frmmain.Drucken.Enabled:=true
else
    frmmain.Drucken.Enabled:=false;

Du darfst natürlich nur einen zentralen Zähler verwenden.

[jensw_2000]

Den Button kann man ja auch im onClose wieder deaktivieren ...


Die Lösung mit dem Zähler halte ich jedoch für fragwürdig, weil
der Aspekt mit dem "Daten drinnen stehen" völlig ausser acht gelassen wird.

Zitat:

wenn die Form noch nicht offen ist, bzw die Daten noch nicht drinnen sind

Deine MDI-Form zieht die Daten vermutlich aus einer Table oder Query.
Wie wärs, wenn du den Button nicht im onCreate aktivierst sondern nachdem die Datenquelle geöffnet bzw. verbunden wurde.

Dann kannst du sogar noch prüfen ob die Datenquelle auch Datensätze enthält.
Zu diesem Zeitpunkt ist sicher das die Form existiert und Daten auch enthält ...

z.B.

if mdiform.dbgrid1.datasource.dataset.recordcount > 0 then frmmain.Drucken.Enabled:=true

[cell]

wo schreib ich das rein atm hat ich das im Form.Activate stimmt das ??

[jensw_2000]

Wenn die Table/Query auf der MDI Form liegt, dann im AfterOpen der Table/Query ...

Da gehts übrigens auch leichter ...

frmmain.Drucken.Enabled:=(dataset.recordcount > 0) Dann wird der Button auch deaktiviert falls du die Query erneut abfragst und diese keine Datensätze zurückgibt ...

[cell]

nein die sind in einem eigenen datamodule aber lassen wir das mal mit den daten weg, also nur wenn die Form aufgefurfen wird! das kann man doch dann auch bei Form.Activate machen oder ????

[Sharky]

Irgendwie habe ich das Gefühl das mit deinem Programmdesign etwas nicht stimmt
Ich bekomme immer feuchte Augen wenn ich in einer Methode eine referenzierung zu einer Form sehe (z.B. frm_blubb.myLabel.Caption).

Ich würde den Vorschlag von jensw_2000 (.RecordCount) damit kombinieren es in das .AfterOpen deines TDataSets zu schreiben. Beim schliessen der DB-Abfrage (.BeforeClose) kann der Butten wieder disabled werden.

[jensw_2000]

Zitat:

Ich würde den Vorschlag von jensw_2000 (.RecordCount) damit kombinieren es in das .AfterOpen deines TDataSets zu schreiben. Beim schliessen der DB-Abfrage (.BeforeClose) kann der Butten wieder disabled werden.

Da kann man auch prüfen ob die MDIForm existiert ...

Beispiel:
frmMain.Drucken.Enabled:=(dataset.recordcount > 0) AND ( Assigned(myMDIForm) ) ...

[cell]

ich hab mal probiert dass ich 3 childs hintereinander aufrufe, aber es zählt mir nicht weiter also eigentlich müsste zaehler:=3; sein, aber das is es ned =(

[jensw_2000]

ist Zaehler ein als Public deklarierte Variable von frmMain ?

Dass sollte sie sein sein, wenn du es wirklich über den Zähler lösen möchtest ..

Beim onCreate der MDI-Form dann halt

frmMain.Zaehler:=frmMain.Zaehler+1;

[Jasocul]

Er kann auch die protected Methode UpdateActions der MDIForm benutzen und prüfen, ob MDIChildCount > 0 ist.

Delphi-Quellcode:

...
type
  TForm1 = class(TForm)
...
  protected
    procedure updateActions; Override;
...
  end;
...

procedure TForm1.UpdateActions;
begin
  Drucken.Enabled := (MDIChildCount > 0);
end;