Knopf in Form-Titlebar

[361]

Hallo,

wüßte einer von Euch, wie man ein simples Label in die Titelbar bringen kann?

MfG
Sebastian

[ichbins]

das ist schwierig bis ganz unmöglich, da die Titelbar dierekt von Windows gemanaged wird.

Du könntest eine eigene Titelbar erstellen (borderstyle -> bsnone => windows-Titelbar verschwindet)

[361]

Hallo Michael,

hmm, das ist schade :( kann man nicht vielleicht irgendwas mit canvas machen? also es muss irgendwie gehen, denn ich habe es mal gesehen, aber leider weiß ich auch nicht mehr. danke auf jeden fall für die schnelle antwort :) vielleicht fällt dir oder anderen ja noch was ein..

Grüße,
Sebastian

[Bernhard Geyer]

TElFormCaption

[TStringlist]

Zitat:

Zitat von 361

...kann man nicht vielleicht irgendwas mit canvas machen? also es muss irgendwie gehen, denn ich habe es mal gesehen, aber leider weiß ich auch nicht mehr...

Wenn du dir die HDC (für Canvas.Handle) mit 'getWindowDC' besorgst, dann kannst du damit auch auf den NonClient-Bereich des Windows malen.

[361]

Hey TStringList,

cooler name, ich bin ab sofort TSpeedButton :mrgreen:

nee im ernst, danke für die info. hättest du vielleicht ein schönes beispiel..??? :oops:

[TStringlist]

Hallo TSpeedButton, :mrgreen:

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;

[Daniel G]

Zitat:

Zitat von 361

also es muss irgendwie gehen, denn ich habe es mal gesehen, aber leider weiß ich auch nicht mehr.

Vielleicht hast du 's mal bei den JEDI's gesehen? TJvCaptionButton :stupid:

[361]

Hallo,

das kann gut sein. Ich bedanke mich auf jeden Fall für die tollen Antworten. Danke!

@TStringList: Ich bin ab sofort TStringTanga, abgeleitet von TStringList mit erweiterten Eigenschaften und Methoden.. :mrgreen: :mrgreen: