Rahmen um Label

[Hansa]

Hi,

kann man irgendwie mit möglichst einfachen Mitteln einen Rahmen um ein Label zeichnen ? Bzw. wie ? Bevor der obligatorische Hinweis auf die Suche kommt, da kommt als Ergebnis u.a. : "das sprengt den Rahmen"

[mkinzler]

Ein Label hat doch schon ein Rahmen oder nicht?

[Daniel G]

Zitat von Hansa:

kann man irgendwie mit möglichst einfachen Mitteln einen Rahmen um ein Label zeichnen ?

Du könntest TStaticText verwenden und dort den entsprechenden BorderStyle setzen.

[Hawkeye219]

Hi,

am einfachsten ist es wahrscheinlich, ein TShape hinter das Label zu legen. Damit kannst du sogar Farbe, Dicke und Strichart beeinflussen.

Bei TStaticText fehlt leider die Möglichkeit, den Text vertikal zu zentrieren.

Gruß Hawkeye

[Daniel G]

Zitat von Hawkeye219:

Bei TStaticText fehlt leider die Möglichkeit, den Text vertikal zu zentrieren.

Na ja... Er schrieb' ja nirgends, dass er das unbedingt brauch'

[IngoD7]

Es beantwortet zwar genau genommen nicht deine Frage, aber: Nimm ein Panel anstatt einem Label.

[SaFu]

Oder Setz das Label auf ein Panel stell einen Rahmen ein und Setz das Editfeld auf BorderStyle bsNone

Eine nicht so schöne Lösung geht aber im Notfall

Gruss Sascha

[Hansa]

Zitat von mkinzler:

Ein Label hat doch schon ein Rahmen oder nicht?

Ne, wo denn ? Borderstyle usw. fehlt da.

[Sunlight7]

Möglichst einfach is im OnPaint einen Rahmen um das Label zu Zeichnen.

[Blackheart]

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Pen.Width:=1;
  Canvas.Pen.Color:=clBlack;
  Canvas.Rectangle(Label1.Left-1, Label1.Top-1,
  Label1.Left + Label1.Width+1, Label1.Top + Label1.Height+1);
end;