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;

[haentschman]

Zitat:

Params.Style := (Params.Style or WS_THICKFRAME or WS_CAPTION);

Ja sicher, nur ist der Rahmen abgerundet und nicht eckig.

Danke für deine Info´s. Über das Selbermachen muß ich noch mal schlafen...

[hathor]

Dann liegt es an WINDOWS.

[redox]

Zitat von hathor:

Dann liegt es an WINDOWS.

Nicht so ganz richtig, es liegt an SEINER Version von Windows

[Back2Code]

Welche Komponenten nutzt du für die Verläufe?

[haentschman]

Hallo...

Das sind TMS AdvPanel mit den Office Stylern. Prinzipiell benutze ich nur die Komponenten die sich mit den Office Stylern anpassen lassen. Damit ist alles immer stimmig...

[redox]

Zitat von haentschman:

Hallo...

Das sind TMS AdvPanel mit den Office Stylern. Prinzipiell benutze ich nur die Komponenten die sich mit den Office Stylern anpassen lassen. Damit ist alles immer stimmig...

Dass Du TMS-Komponenten benutzt, halte ich für Deine Frage für völlig irrel3evant, denn Dein Programm ist ganz offensichtlich unabhängig vom OS

Sarkasmus ist mir fremd

[Back2Code]

Zitat von haentschman:

Hallo...

Das sind TMS AdvPanel mit den Office Stylern. Prinzipiell benutze ich nur die Komponenten die sich mit den Office Stylern anpassen lassen. Damit ist alles immer stimmig...

Kannste das Projekt mal hochladen? TMS hab ich