Minimize İşlemi hakkında

[adelphiforumz]

Selamlar

Show modal olarak açılmış bir form minimize edildiğinde tüm uygulama nasıl minimize edilebilir.
Aynı şekilde maximize yapıldığında ilk halindeki tüm formlar nasıl eski durumuna getirilir.

Not: Her formun içerisine bir şeyler yapmadan application bazında nasıl yapılabilir öğrenmek istediğim bu.

Teşekkürler

Örnek yaptığım uygulama

  MinimizeTest.zip (Dosya Boyutu: 58,68 KB / İndirme Sayısı: 3)

[hi_selamlar]

(13-06-2024, Saat: 17:24)adelphiforumz Adlı Kullanıcıdan Alıntı: Selamlar

Show modal olarak açılmış bir form minimize edildiğinde tüm uygulama nasıl minimize edilebilir.
Aynı şekilde maximize yapıldığında ilk halindeki tüm formlar nasıl eski durumuna getirilir.

Not: Her formun içerisine bir şeyler yapmadan application bazında nasıl yapılabilir öğrenmek istediğim bu.

Teşekkürler

Merhabalar,

Application.OnMessage ile deneyebilirmisiniz lütfen.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := AppMessage;
end;



procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
 I: Integer;
begin
 if Msg.message = WM_SYSCOMMAND then
 begin
   case Msg.wParam of
     SC_MINIMIZE:
       begin
         // tüm formları minimize et
         for I := 0 to Screen.FormCount - 1 do
           Screen.Forms[I].WindowState := wsMinimized;
         Handled := True;
       end;
     SC_RESTORE:
       begin
         // tüm formları eski haline getir
         for I := 0 to Screen.FormCount - 1 do
           Screen.Forms[I].WindowState := wsNormal;
         Handled := True;
       end;
   end;
 end;
end;

Kolay gelsin.

[adelphiforumz]

(14-06-2024, Saat: 09:29)hi_selamlar Adlı Kullanıcıdan Alıntı:

(13-06-2024, Saat: 17:24)adelphiforumz Adlı Kullanıcıdan Alıntı: Selamlar

Show modal olarak açılmış bir form minimize edildiğinde tüm uygulama nasıl minimize edilebilir.
Aynı şekilde maximize yapıldığında ilk halindeki tüm formlar nasıl eski durumuna getirilir.

Not: Her formun içerisine bir şeyler yapmadan application bazında nasıl yapılabilir öğrenmek istediğim bu.

Teşekkürler

Merhabalar,

Application.OnMessage ile deneyebilirmisiniz lütfen.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := AppMessage;
end;



procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
 I: Integer;
begin
 if Msg.message = WM_SYSCOMMAND then
 begin
   case Msg.wParam of
     SC_MINIMIZE:
       begin
         // tüm formları minimize et
         for I := 0 to Screen.FormCount - 1 do
           Screen.Forms[I].WindowState := wsMinimized;
         Handled := True;
       end;
     SC_RESTORE:
       begin
         // tüm formları eski haline getir
         for I := 0 to Screen.FormCount - 1 do
           Screen.Forms[I].WindowState := wsNormal;
         Handled := True;
       end;
   end;
 end;
end;

Kolay gelsin.

Selamlar 
cevap biraz geç oldu kusura bakmayın araya bayram girdi. 
Denemeleri yaptım sadece en son açılan form küçülüyor ana form arkada aynen kalıyor.