var i:integer; mdi:tform; begin for i:=0 to mdichildcount-1 do begin mdi:=mdichildren[i]; mdi.WindowState:=wsminimized; end; 以上的程式碼是全部最小化可是我一次開啟多個資料表執行這個程式碼每次都會留下一個沒有最小化那麼我要怎麼做

1.是否是自己沒有最小化...那用self 2.表單父親設定對嗎? 星期一,星期二...星期日..星期一..無窮迴圈@@

------
星期一,二...無窮迴圈＠＠

試了一下, 果然如此, 換個方式

function MinimizeMyChildForm(hWnd : HWND; lparam:LPARAM) : BOOL; stdcall;    procedure TMainForm.ToolButton12Click(Sender: TObject);
begin
   EnumChildWindows(MainForm.Handle, @MinimizeMyChildForm, 0);
end;    function MinimizeMyChildForm(hWnd: HWND; lparam: LPARAM): BOOL;
var ClassName : Array[0..255] of char;
begin
   GetClassName(hWnd, ClassName, 255);
   if ClassName = 'TMDIChild' then
      ShowWindow(hWnd, SW_MINIMIZE);
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

另一種方式, 從尾端往前縮小

procedure TMainForm.ToolButton12Click(Sender: TObject);
var i : integer;
begin
   for i := MainForm.MDIChildCount - 1 downto 0 do begin
       TForm(MainForm.MDIChildren[i]).WindowState := wsMinimized;
   end;
end;

這是有原因的, 追了一下程式碼, 與視窗的焦點有關, 去變動到Screen.Forms的順序, 所以由後往前做不會有這個情形發生 我不是高手, 高手是正在銀幕前微笑的人. 發表人 - miles 於 2004/11/03 20:36:01

------


我不是高手, 高手是正在銀幕前微笑的人.