Form Minimize

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Rezuba
Üye
Mesajlar: 4
Kayıt: 15 Eki 2005 03:24

Form Minimize

Mesaj gönderen Rezuba »

S.A.

Forumda yaptığım aramalarıma rağmen sorunumla ilgili sağlıklı bir sonuç elde edemedim. Benim yapmak istediğim form1 gizli iken form2 veya form3 ü minimize ettiğim zaman statusbar'a inmesini istiyorum ama form sol alt koşeye minimize oluyor. Form2 veya form3 ü minimize ettiğim zaman form2 veya form3'ün değil form1'in statusbar'a inmesini istiyorum ve tekrar statusbarı tıkladığım zaman minimize ettiğim formdan açılmasını istiyorum bu konuda yardımcı olan arkadaşlara şimdiden teşekkürler..
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Mesaj gönderen mrmarman »

Merhaba...

- Formda daha önce bahsi geçmişti... Çözüm olarak şunu refere edebilirim...

viewtopic.php?t=8371#50369
Resim
Resim ....Resim
Rezuba
Üye
Mesajlar: 4
Kayıt: 15 Eki 2005 03:24

Mesaj gönderen Rezuba »

mrmcop yazdı:Merhaba...

- Formda daha önce bahsi geçmişti... Çözüm olarak şunu refere edebilirim...

viewtopic.php?t=8371#50369
merhaba...

yardımın için öncelikle teşekkür ederim fakat linkte bahsi geçen konu hakkında diğer bir bölümde bu bilgiye ulaştım ama bu sonuç benim problemimi çözmüyor.benim istediğim verdiğin linkte 67neo isimli üyenin göndermiş olduğu bir resim var farz edelim o şekilde bütün formlar açık ben form4 minimize ediyorum ve bütün formların taskbar'a inmesini istiyorum nasıl ana formu minimize ettiğin zaman hepsi aşağı tek bir bölgeye iniyorsa bende form4 'ü minimize ettiğim zaman bütün formların taskbar'a ana formda olduğu gibi taskbar'a geçmesini istiyorum
bukentay
Üye
Mesajlar: 44
Kayıt: 16 Şub 2004 07:21

Mesaj gönderen bukentay »

Kod: Tümünü seç

  type
  TForm4 = class(TForm)
    .
    .
    .
    procedure WMSyscommand(var msg: TWmSysCommand); message WM_SYSCOMMAND;
   .
   .
   .
procedure TForm4.WMSyscommand(var msg: TWmSysCommand);
begin
   case (msg.CmdType and $FFF0) of
     SC_MINIMIZE: Application.Minimize;
     SC_RESTORE : Application.Restore;
   end;
   inherited;
end;
umarim isinizi gorur...
Rezuba
Üye
Mesajlar: 4
Kayıt: 15 Eki 2005 03:24

Mesaj gönderen Rezuba »

bukentay yazdı:

Kod: Tümünü seç

  type
  TForm4 = class(TForm)
    .
    .
    .
    procedure WMSyscommand(var msg: TWmSysCommand); message WM_SYSCOMMAND;
   .
   .
   .
procedure TForm4.WMSyscommand(var msg: TWmSysCommand);
begin
   case (msg.CmdType and $FFF0) of
     SC_MINIMIZE: Application.Minimize;
     SC_RESTORE : Application.Restore;
   end;
   inherited;
end;
umarim isinizi gorur...
:( :( ama görmedi

aslında kısmen çözüm oluyor ama tam olarak işimi görmüyor form1 form2 yi taskbar'a indiriyor fakat minimize işlemini yaptığım form3'ü ise destop'a minimize ediyor benim istediğim şey ise nasıl form1 ve form2 yi taskbara minimize ediyorsa minimize işlemi yaptığım form3'ü de taskbar'a hep beraber minimize etsin tabi tek sütün içerisinde
fduman
Moderator
Mesajlar: 2749
Kayıt: 17 Ara 2004 12:02
Konum: Ankara

Mesaj gönderen fduman »

Burada minimize olmayan formları nasıl taskbar'da göstereceğin bahsedilmiş. Bunu ve yukarıdaki minimize kodlarını birlikte kullanman sorununu çözebilir.

http://www.delphifaq.com/faq/delphi/win ... f468.shtml
Cevapla