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;
back to tutorial delphi home....
Tidak ada komentar:
Posting Komentar