Rahmen um mehrere TLabels zeichnen

[Popov]

Sowas in der Art?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  r, r1, r2: TRect;
begin
  //Das oberste linke Label und das unterste Rechte Label
  //ergeben zusammen ein Gesamtrechteck
  r1 := Label1.BoundsRect;
  r2 := Label2.BoundsRect;
  UnionRect(r, r1, r2);

  Canvas.Pen.Color := clRed;
  Canvas.Brush.Style := bsClear;
  Canvas.Rectangle(r);
end;

oder

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  r, r1, r2, r3, r4: TRect;
begin
  //Ansonsten alle Rects zusammen berechnen
  r1 := Label1.BoundsRect;
  r2 := Label2.BoundsRect;
  UnionRect(r, r1, r2);

  r3 := Label3.BoundsRect;
  UnionRect(r, r, r3);
  r4 := Label4.BoundsRect;
  UnionRect(r, r, r4);


  Canvas.Pen.Color := clRed;
  Canvas.Brush.Style := bsClear;
  Canvas.Rectangle(r);
end;