2004. december 2., csütörtök

Invisible title - hide the program's title bar


Problem/Question/Abstract:

Invisible title - hide the program's title bar

Answer:

This is a quick way to hide your program's title bar:

procedure TForm1.FormCreate(Sender: TObject);
var
  OldStyle: longint;
begin
  OldStyle := GetWindowLong(Handle, GWL_STYLE);
  SetWindowLong(Handle, GWL_STYLE, OldStyle and not WS_CAPTION);
  ClientHeight := Height;
end;

Nincsenek megjegyzések:

Megjegyzés küldése