请问如何画实线.在 标识控件四周画线~

Question

用 label.canvas.lineto(..)请问如何实现？

Answer 1

如何画实线.在 标识控件四周画线~????????????听不懂？想要什么效果？是想要一个边框带线的TLabel吗？

Answer 2

是的~  就在四周画线~效果就是 一个边框带线的TLabel

Answer 3

//lb: Label
procedure TForm1.FormPaint(Sender: TObject);
begin
  self.Canvas.Pen.Color := clBlue;
  self.Canvas.Pen.Width := 1;
  self.Canvas.Rectangle(lb.Left-1, lb.Top-1, lb.Left+lb.Width+1, lb.Top+lb.Height+1);
end;

Answer 4

var
  DC: HDC;
  arect: TRect;
  WindowBrush:hBrush;  
  DC := GetWindowDC(Handle);
  WindowBrush:=0;
  try
    WindowBrush:=CreateSolidBrush(ColorToRGB(Color));
    GetWindowRect(Handle, ARect);
    OffsetRect(arect,-arect.Left,-arect.Top);
    FrameRect(DC, ARect, WindowBrush);    
  finally
    DeleteObject(windowBrush);
    ReleaseDC(Handle,DC);
  end;