Form, BorderStyle, VCL

[hathor]

Das ist auch einfach: Panel als Titelzeile...
...und zum Verschieben:

Delphi-Quellcode:

procedure TForm3.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Form3.Handle, WM_SYSCOMMAND, $F012, 0);
end;

Bei mir würde es auch so gehen, um Caption zu zeigen:

Delphi-Quellcode:

procedure TForm3.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := (Params.Style or WS_THICKFRAME or WS_CAPTION);
end;