Rabu, 08 Oktober 2008

MEMBUAT FORM TANPA CAPTION BAR

Jika kita membuat form di program DELPHI maka akan muncul caption barnya, nah sekarang bagaimana jika kita membuat program tanpa caption bar ? inilah kodenya

procedure CreateParams(var Params: TCreateParams); override;

// Then, in the actual CreateParams method, specify this:

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
Style := (Style or WS_POPUP) and (not WS_DLGFRAME);
end;

Tidak ada komentar: