MDIӴڵʾر
ڱʱʹMDIڣΪೡʹǵ
ͳһʹMDIҲһЩĵط
עҲǵı̴鷳һЩҪעĵط
(һ)Ҫ㲻MDIӴڴԶĴбȥ
һУӴھͻԶ֡MDIӴڴԶ
бȥжMDIӴѽʾ
һĴֳһ⡣
رMDIӴںܼif FormChild1=nil then ...
жǷѽΪFreenilǸ
Чĵֵַǿĺжϣ
function TfrmMain.IsForm(formClass : string) : boolean;
{жϴǷѽfromClassǴڵַ'TForm2'}
var
i : integer;
begin
result := False;
for i := 0 to Application.ComponentCount -1 do
begin
if (Application.Components[i].ClassName = formClass) then
begin
result := True;
Break;
end;
end;
end;
ȻҲжϷMDIڡ
()һĴCloseʱĬ϶HideMDIӴCloseʱ
ĬMinimizeΪһ㴰һرӦMDI
ڵOnClose¼Action=caFree;ʹڴͷ
ע⣺㲻Action:=caHideرպҪʾͱ
CreateһβСķжϴǷѽûо
Ƚѽֱshow
()ڵ˵ϼһڡ˵Ϊ
ôڲӲ˵ڵWindowMenuΪڡ
˵һMDIӴʱڡ˵һ
ӴڱӲ˵ҵǰڶӦIJ˵ǰһǡ
ѡ˵ԽӦĴڵǰܷɣһҪע
ڡ˵ʱҪһӲ˵Ͳ