iki formu minimize etme

[akuyumcu63]

değerli arkadaşlar;

showmodal ile show ettiğim formu minimize ederken kendinden önceki formun da minimize olmasını istiyorum. bunu nasıl yapabilirim. kolay gelsin.

[csunguray]

Aşağıdaki tanımları formun public bölümüne yerleştirin:

Kod: Tümünü seç

AppState, FormState : TWindowState;
procedure WMSysCommand(var Message: TWMSysCommand); message
WM_SYSCOMMAND;

Aşağıdakini implementation bölümüne yerleştirin :

Kod: Tümünü seç

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  case Message.CmdType and $FFF0 of
   SC_MINIMIZE : begin
                  AppState := MainForm.WindowState;
                  FormState := Self.WindowState;
                  Self.WindowState := wsMinimized;
                  MainForm.WindowState := wsMinimized; // for D5
                  // for D7 works Application.Minimize i guess ;)
                 end;
  SC_RESTORE : begin
                  MainForm.WindowState := AppState;
                  Self.WindowState := FormState;
               end;
  else inherited;
  end;
end; 

[akuyumcu63]

çok teşekkür ederim. çalışmalarınızda başarılar dilerim.