Button deaktivieren, wenn keine MDI-Childs

jakobwenzel · Verfasst: Do 23.06.05 15:14

Ich habe in einem MDI-Formular eigene Buttons erstellt, und will jetzt, dass die deaktiviert werden, wenn kein MDI-Child exisitiert. Aktivieren schaffe ich ja, wenn man das MDI-Child errzeugt, aber deaktivieren ???

Bitte helft mir!!!

StefanH · Verfasst: Do 23.06.05 15:17

beim onClose der MDI-Childs abfragen, wie groß MDIChildCount vom MDIForm ist...

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

jakobwenzel · Verfasst: Do 23.06.05 15:24

Funktioniert irgenwie nicht...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MainForm.MDIChildCount=0 then
    MainForm.ToolButton4.Enabled:=false;
  Action := caFree;
end;

StefanH · Verfasst: Do 23.06.05 15:27

probiers mal mit 1... das MDICHild dürfte in onClose noch "da sein"

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

Pr0g · Beiträge: 220 D7 Pers

Im OnClose ist das Childfenster ja noch aktiv. Es wird erst nach dem Ausführen des OnClose Codes geschlossen. Daher müsstest du prüfen, ob ein Child vorhanden ist (denn nach dem Schließen sind es ja null):

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MainForm.ToolButton4.Enabled := (MainForm.MDIChildCount > 1);
  Action := caFree;
end;

MfG Pr0g

jakobwenzel · Verfasst: Do 23.06.05 15:29

Danke, funktioniert!! :lol:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme