Görev çubuğu vs. gizlemek

[qamyoncu]

Merhaba,

aslında yıllar önce yaptığım birşeydi, fakat sanırım şuan win7 kullanmamdan dolayı çalışan kod bulamadım internette. Kendi birkaç çabama rağmen sonuç değişmedi. Tam ekran oyunlarda başlat düğmesi ve hizasındaki görev çubuğu gibi tüm explorer nesneleri kayboluyor yada arkaplanda kalıyor. Ben de aynı şeyi yapmak istiyorum. Öneriniz var mıdır?

[emin_as]

Formun propertylerini aşagıdaki gibi düzenlersen, aynı etkiyi elde edersin.

Kod: Tümünü seç

  borderstyle:=bsNone;
  windowstate:=wsMaximized;
  formstyle:=fsStayOntop;

[qamyoncu]

FormCreate event'ine yazdım. Fakat, malesef ki dediğiniz win7'de çalışmıyor.

[quadr]

formCreate ine yaz...

Kod: Tümünü seç

SetWindowPos(Application.Handle,
              HWND_TOPMOST,
              0, 0, 0, 0,
              SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);

kolay gelsin...

[qamyoncu]

malesef yine pek bir değişiklik yok. Sadece bir anlığına yokoluyormuş gibi gözüküyor falan tekrar geliyor.

Kod: Tümünü seç

SetWindowPos(Application.Handle,
              HWND_TOPMOST,
              0, 0, 0, 0,
              SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
//ShowCursor(False);
DecimalSeparator:=',';
GetCursorPos(p);

ve bi kaç nesne yaratma işlemi yapıyorum form create event'inde. Acaba nerede sorun anlayamadım bir türlü

[Battosai]

http://delphi.about.com/od/delphitips20 ... de-f11.htm birde bunu dene...

[quadr]

yukarıda verdiğimi bir timer a bağla çağır veyada şöyle yapıp dene ;

Kod: Tümünü seç

procedure TForm1.CreateAlwaysOnTopForm;
begin
  frm := TForm.Create(self);
  frm.Width := Screen.Width;
  frm.Height := Screen.Height;
  frm.Top := 0;
  frm.Left := 0;
  frm.FormStyle := fsStayOnTop;
  frm.BringToFront;

  tmr := TTimer.Create(frm);
  tmr.Interval := 100;
  tmr.OnTimer := tmrTimer;
  tmr.Enabled := true;
  frm.ShowModal;
end;

procedure TForm1.tmrTimer(Sender: TObject);
begin
  frm.BringtoFront;
end;

yine olmazsa taskbarı show hide yap diyecem ama tavsiye etmem.onuda vereyim ;

Kod: Tümünü seç

procedure hideTaskbar;
var wndHandle : THandle;
    wndClass : array[0..50] of Char;
begin
 StrPCopy(@wndClass[0], 'Shell_TrayWnd');
 wndHandle := FindWindow(@wndClass[0], nil);
 ShowWindow(wndHandle, SW_HIDE); // This hides the taskbar
end;

procedure showTaskbar;
var wndHandle : THandle;
    wndClass : array[0..50] of Char;
begin
 StrPCopy(@wndClass[0], 'Shell_TrayWnd');
 wndHandle := FindWindow(@wndClass[0], nil);
 ShowWindow(wndHandle, SW_RESTORE); // This restores the taskbar
end;

kolay gelsin...

[qamyoncu]

Sorun ne çözemedim fakat benim projem hariç diğer projelerde dedikleriniz sorunsuz çalışıyor. Sorunu halledince buraya yazmayı ihmal etmem, teşekkürler ilginiz için.