 |
Delphi Tips & Tricks | softsale > Delphi Tips & Tricks |
| < poprzednia rada | następna rada > |
Jak ukryć pasek zadań?
Czasami chcemy ukryć cały pasek zadań ( Porównaj: Tip Ukrywanie przycisku aplikacji na pasku zadań). W przykładzie tip18.zip realizowane jest to pod odpowiednimi przyciskami Pokaż i Ukryj. Należy również pamiętać o przywróceniu paska zadań w momencie kończenia aplikacji
.......
implementation
var wndClass : array[0..50] of char;
var wndhandle :Thandle;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
//pokaż pasek zadań
ShowWindow(wndHandle, SW_SHOW);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// ukryj pasek zadań
ShowWindow(wndHandle, SW_HIDE);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// klasa paska zadań
StrPCopy(@wndClass[0],'Shell_TrayWnd');
// uchwyt
wndHandle:=FindWindow(@wndClass[0],nil);
// pierwszy parametr FindWindow- wskaźnik do nazwy klasy
// drugi parametr FindWindow - wskaźnik do nazwy okna,
// nil jeśli ma pasować do wszystkich nazw okien
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowWindow(wndHandle, SW_SHOW);
end;
|
|
SOFTSALE - Oprogramowanie i Szkolenia softsale@softsale.com.pl 03-565 Warszawa , ul. Borzymowska 43 lok. 301C tel/fax:4084840,GSM:0607612428 |