Arsip: Form yang FullScreen


by LuriDarmawan in Form more 19 years ago 3268
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

AI Forward

๐Ÿš€ We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com