Zdravím, mám dotaz:
Jak lze nastavit, aby formulář byl přes celou obrazovku, a překryl i listu start?
Díky
Fórum › Delphi
Skrytí listy Start
Ještě lépe. Takto jsem to řešil v jedné aplikaci, která byla přes celou obrazovku a nesla na sobě obrázek (něco jako spořič s EXE příponou :)).
procedure TForm1.FormCreate(Sender: TObject);
var
HTaskbar : HWND;
OldVal : LongInt;
begin
try
HTaskBar:=FindWindow('Shell_TrayWnd',nil);
SystemParametersInfo (97, Word (True), @OldVal, 0) ;
EnableWindow(HTaskBar,False);
ShowWindow(HTaskbar,SW_HIDE);
finally
With Form1 do begin
BorderStyle :=bsNone;
FormStyle :=fsNormal;
Left :=0;
Top :=0;
Height :=Screen.Height;
Width :=Screen.Width;
end;
end
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
HTaskbar : HWND;
OldVal : LongInt;
begin
ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOW);
HTaskBar:=FindWindow('Shell_TrayWnd',nil);
SystemParametersInfo (97, Word (False), @OldVal, 0);
EnableWindow(HTaskBar,True);
ShowWindow(HTaskbar,SW_SHOW);
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0)
end;
Uses:
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, WinSkinData, ImgList, ComCtrls, ToolWin;
Zjistit počet nových příspěvků
Přidej příspěvek
Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
Uživatelé prohlížející si toto vlákno
Uživatelé on-line: 0 registrovaných, 1 host
Podobná vlákna
Skrytí listy s nabídlou Start — založil Anonymus
Vykreslení Bitmapy do lišty — založil Mutagen
Aktivace prog. z listy po pokusu o 2.spusteni — založil Romek
Rozdíly mezi poli, vectory, listy — založil DooFy93