Try this one...
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 :=fsStayOnTop;
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
HTaskBar:=FindWindow('Shell_TrayWnd',nil);
SystemParametersInfo (97, Word (False), @OldVal, 0);
EnableWindow(HTaskBar,True);
ShowWindow(HTaskbar,SW_SHOW);
End;
Hope it helps...
Best Regards,
Cahyo
-----Original Message-----
From: Heriyanto [mailto:[EMAIL PROTECTED]
Sent: Sunday, October 26, 2003 6:42 PM
To: [EMAIL PROTECTED]
Subject: [Delphindo] full screen form
Importance: High
Hallo Delphiers,
saya mau nanya bagaimana caranya bikin full screen form, tapi caption form
nya tidak ada seperti full screen media players.
TIA
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/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/
