Hallo, ich frage mich warum man nicht alle
MDI Childs gleichzeitig schließen kann. Als Standard Actions sind TWindowsClose, TWindowCascade, TWindowTileHorzontal, TWindowTileVertical, TWindowArrange und TWindowMinimizeAll vorhanden - nur nicht z.B. TWindowCloseAll !!
Hat das einen besonderen Grund?
Außerdem wüsste ich gerne wie man zur Laufzeit eine windows Message abschickt in dem z.B. der CloseButton (X) des Childs angesteuert wird. Die Frage sollte nicht lauten warum, sondern wie es geht. Kann mir jemand helfen? Das wäre cool.
LG Harry
Das
MDI framework (in Windows) ist uralt (Windows 2.0!) und wird von MS schon seit vielen Windows-Versionen nur gerade noch so gepflegt das alte
MDI-Anwendungen noch laufen. MS würde das sicher lieber loswerden, fürchtet aber wohl den Aufschrei der Kundschaft
.
Das Window-Menu wird im Prinzip von Windows bereitgestellt, nicht von der
VCL. Die von Dir erwähnten Standard-Aktions benutzen dieses Menu und daher gibt es auch nur Aktions für die Standard-Menuitems. Die Interaktion mit dem
MDI-Framewindow (das Hauptfenster der Anwendung) läuft über WM_MDI* Messages. Sieh Dir mal die
Liste der verfügbaren Messages an: es gibt keine, die einem "close all child windows" entspricht.
Das heißt aber nicht, dass Du dir nicht ein Equivalent selbst basteln kannst. Alle existierenden Forms finden sich in der Screen.Forms-Collection, Du kannst also einfach sowas machen:
Delphi-Quellcode:
var
N: Integer;
begin
for N:= Screen.Formcount - 1 downto 0 do
if Screen.Forms[N].Formstyle = fsMdiChild then
Screen.Forms[N].Free; // oder Screen.Forms[N].Release; ist vielleicht sicherer
Das direkte Äquivalent eines Klicks auf das Close-Icon eines Forms wäre
PostMessage(Formx.Handle, WM_SYSCOMMAND, SC_CLOSE, 0);