Arsip: Form yang FullScreen


by LuriDarmawan in Form more 14 years ago 2222
Ingin membuat form dari aplikasi anda langsung full-screen?
sangat mudah kok.
Caranya:
- ubah borderstyle menjadi bsNone
- gunakan SystemParametersInfo untuk mendapatkan ukuran layar
- gunakan SetBounds untuk menyesuaikan ukuran form

kode-nya:
procedure TSomeForm.FormShow(Sender: TObject) ;
var
r : TRect;
begin
Borderstyle := bsNone;
SystemParametersInfo (SPI_GETWORKAREA, 0, @r,0) ;
SetBounds( r.Left, r.Top, r.Right-r.Left, r.Bottom-r.Top) ;
end;
Syntax Highlighted with https://pascal-id.org/syntax
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com