델파이

Question

내 모든 MDIChildren을 최소화하는 문제를 가지고 MDIChild to minimize not activated properly

모든 아이들을 최소화하기 위해 내 코드를 통해 온 모든 MDI 자식을 최소화하는 것입니다 :

procedure TMainWindow.MinimizeAll1Click(Sender: TObject); 
var 
    i: Integer; 
begin 
    for i := 0 to MDIChildCount - 1 do begin 
    MDIChildren[i].WindowState := wsMinimized; 
    //ShowWindow(MDIChildren[i].Handle, SW_MINIMIZE) 
    end; 
end; 

나는 두 가지 방법 (SW_MINIMIZE 및 wsMinimized)을 시도했지만 어떤 이유로 마지막 MDI 자식 폼은 최소화되지 않습니다. 그러나 당신이 모든 아이들을 다시 최소화하려고한다면 그것은 효과적입니다. MDIAPP 예제에서 Delphi XE의 모든 작업을 최소화하십시오. 1 루틴에서 모든 MDI 하위를 올바르게 최소화하려면 어떻게합니까?

Answer 1

MDI 자식 창을 최소화하면 양식이 나타나는 순서가 MDIChildren[]으로 변경됩니다. 이 인덱싱 된 속성은 항상 MDIChildren[0]에 활성 MDI 자식을 반환합니다. 그래서, 당신이 원하는 것을하는 가장 깨끗한 방법은 모든 양식의 복사본을 먼저 가져온 다음 최소화를 시작하는 것입니다.

var 
    i: Integer; 
    Forms: array of TForm; 
.... 
SetLength(Forms, MDIChildCount); 
for i := 0 to high(Forms) do 
    Forms[i] := MDIChildren[i]; 
for i := 0 to high(Forms) do 
    Forms[i].WindowState := wsMinimized;