1. Bagaimana cara bikin aplikasi yg bisa full screen?
ada komponent khusus? atau property apa yg harus di-set?
2. Bagaimana caranya agar aplikasi yg kita bikin jika gak ada aktivitas
(ngetik, atau nge-klik) bisa muncul
screen saver?
wachjudi
----
1. Gini (dari internet. Bisa juga download Tips Explorer dari files
section-nya Delphindo)
********
Cara 1.
********
// Make your application like a game. Full Screen. Disable all of the system
keys
procedure TForm1.FormCreate(Sender: TObject);
var
HTaskbar : HWND;
OldVal : LongInt;
begin
TRY
HTaskBar:=FindWindow('Shell_TrayWnd',nil); //Find
handle of TASKBAR
SystemParametersInfo (97, Word (True), @OldVal, 0) ; //Turn SYSTEM
KEYS off, Only Win 95/98/ME
EnableWindow(HTaskBar,False);
//Disable the taskbar
ShowWindow(HTaskbar,SW_HIDE);
//Hide the taskbar
FINALLY
With FORM1 do begin
BorderStyle :=bsNone;
FormStyle :=fsStayOnTop;
Left :=0;
Top :=0;
Height :=Screen.Height;
Width :=Screen.Width;
end;
END{FINALLY}
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
HTaskbar : HWND;
OldVal : LongInt;
begin
HTaskBar:=FindWindow('Shell_TrayWnd',nil); //Find
handle of TASKBAR
SystemParametersInfo (97, Word (False), @OldVal, 0); //Turn SYSTEM
KEYS ON, Only Win 95/98/ME
EnableWindow(HTaskBar,True);
//Enable the taskbar
ShowWindow(HTaskbar,SW_SHOW); //Show
the taskbar
end;
********
Cara 2
********
function SetFullscreenMode(ModeIndex: Integer) : Boolean;
// changes to the video mode given by 'ModeIndex'
var DeviceMode : TDevMode;
begin
with DeviceMode do
begin
dmSize:=SizeOf(DeviceMode);
dmBitsPerPel:=VideoModes[ModeIndex].ColorDepth;
dmPelsWidth:=VideoModes[ModeIndex].Width;
dmPelsHeight:=VideoModes[ModeIndex].Height;
dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
// if mode set failed, we'll just run in windowed mode
Result:=ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) =
DISP_CHANGE_SUCCESSFUL;
if Result then ScreenModeChanged:=True;
if ModeIndex = 0 then ScreenModeChanged:=False;
end;
end;
****
Mungkin ada komponen khusus untuk ini. Lihat torry. Property? Liat source
di atas.
2. Bukannya memang begitu sifatnya screen saver? Tidak ada aktivitas,
langsung aktif. Set aja dari Control Panel --> Display properties --> Screen
saver tab --> pilih screen savernya.
Kalo mau jalanin dari aplikasi:
- Set Form.keypreview := true
- cek apakah ada penekanan tombol (keyboard atau mouse) pd form.
- Bila tidak ada aktivitas tsb masukkan kode ini
Windows.PostMessage(Windows.GetDesktopWindow,WM_SYSCOMMAND,SC_SCREENSAVE,0);
Semoga membantu
Irwan
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Save on Coral Calcium. Get Better Health and
Stronger Bones. Seen on TV
http://www.challengerone.com/t/l.asp?cid-2805&lp=calcium2.asp
http://us.click.yahoo.com/9gf46B/EfUGAA/ySSFAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
