Rahmen um Label

[Blackheart]

Delphi-Quellcode:

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  with Sender as TLabel do begin
    Color := clSkyBlue;
    Font.Color := clNavy;
    Form1.Canvas.Pen.Width:=1;
    Form1.Canvas.Pen.Color:=clRed;
    Form1.Canvas.Rectangle(Left-1, Top-1,Left + Width+1, Top + Height+1);
    Repaint;
 end;
end;