Kamis, 30 September 2010

Menyembunyikan caption bar

Menyembunyikan caption bar
Untuk menyembunyikan caption bar, tambahkan kode pada event onCreate.

procedure TForm1.FormCreate(Sender:TObject);
begin

SetWindowLong(Handle,gwl_style,GetWindowLong(handle,gwl_style) and NOT ws_caption);
ClientHeight:=Height;
Refresh;

end;

Tidak ada komentar:

Posting Komentar