Knopf in Form-Titlebar

[TStringlist]

Hallo TSpeedButton,

vielleicht in aller Kürze mal sowas:

Delphi-Quellcode:

var
  Form1 : TForm1;
  aCanvas : TCanvas;
  aHDC : THandle;
  aTitleBarText : String;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  aHDC := getWindowDC(Handle);
  aCanvas := TCanvas.Create;
  aCanvas.Handle := aHDC;
  aTitleBarText := 'Hallo';
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  aCanvas.Free;
  DeleteDC(aHDC);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  aCanvas.TextOut(100,5,aTitleBarText);
end;