Rahmen um Label

[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;