モナーの *やさしい* Delphi質問スレ Ver.8
レス数が950を超えています。1000を超えると書き込みができなくなります。
0974960
NGNG>MDI子フォームを最小化したときにそのフォームを隠したい。
procedure TForm2.FormResize(Sender: TObject);
begin
if IsIconic(Handle) then ShowWindow(Handle,SW_HIDE);
end;
もとに戻すときは
procedure TForm1.Command1Click(Sender: TObject);
begin
ShowWindow(MDIChildren[0].Handle,SW_SHOWNORMAL);
end;
とすると、こっちではうまくいってる
レス数が950を超えています。1000を超えると書き込みができなくなります。