Delphi Form Tanpa Caption Bar

Berikut ini cara membuat form delphi tanpa caption bar. Tambahkan 1 button untuk Close karena nanti tombol close bawaan form akan hilang...

pada bagian Type tambahkan prosedur CreateParams :

type<br />  TForm1 = class(TForm)<br />    Button1: TButton;<br />    //tambahkan prosedure disini<br />    procedure CreateParams(var Params: TCreateParams); override;<br />    procedure Button1Click(Sender: TObject);

kemudian pada bagian implementation tulis kode seperti berikut :

implementation<br /><br />{$R *.dfm}<br />procedure TForm1.CreateParams(var Params: TCreateParams);<br />begin<br />   inherited CreateParams(Params);<br />   with Params do<br />      Style := (Style or WS_POPUP) and (not WS_DLGFRAME);<br />end;
Dan hasilnya seperti gambar dibawah :

Source Code Lengkap :

unit Unit1;<br /><br />interface<br /><br />uses<br />  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />  Dialogs, StdCtrls;<br /><br />type<br />  TForm1 = class(TForm)<br />    Button1: TButton;<br />    //tambahkan prosedure disini<br />    procedure CreateParams(var Params: TCreateParams); override;<br />    procedure Button1Click(Sender: TObject);<br />  private<br />    { Private declarations }<br />  public<br />    { Public declarations }<br />  end;<br /><br />var<br />  Form1: TForm1;<br /><br />implementation<br /><br />{$R *.dfm}<br />procedure TForm1.CreateParams(var Params: TCreateParams);<br />begin<br />   inherited CreateParams(Params);<br />   with Params do<br />      Style := (Style or WS_POPUP) and (not WS_DLGFRAME);<br />end;<br /><br />procedure TForm1.Button1Click(Sender: TObject);<br />begin<br />close;<br />end;<br /><br />end.
Program + Source Code dapat di download di SINI