向TLabel添加图形的问题

我正在尝试使用Delphi创建一个继承自TLabel的组件，并在TLabel.Paint上添加了一些自定义图形。我希望图形位于文本的左侧，所以我覆盖了GetClientRect：

function TMyComponent.GetClientRect: TRect;
begin
  result := inherited GetClientRect;
  result.Left := 20;
end;

这个解决方案有一个我想解决的主要问题：无法点击控件的“图形区域”，只能点击标签区域。如果标题是空字符串，则无法通过单击它来选择设计器中的组件。有任何想法吗？

已邀请:

2 个回复

蕉衫

首先请原谅我糟糕的英语。我认为这不是一个好主意更改组件的ClientRect。此属性/信息用于组件的许多方法和过程内部，您可以更改组件的functionemnt / operation。我认为您可以更改写入文本的点（DoDrawText过程中的20个像素 - 示例 - ），组件可以响应图形区域中的事件。

procedure TGrlabel.DoDrawText(var Rect: TRect; Flags: Integer);
begin
  Rect.Left := 20;
  inherited;
end;

procedure TGrlabel.Paint;
begin
  inherited;

  Canvas.Brush.Color := clRed;
  Canvas.Pen.Color := clRed;
  Canvas.pen.Width := 3;
  Canvas.MoveTo(5,5);
  Canvas.LineTo(15,8);

end;

凄嘛姥

您从TLabel获得了哪些方法/功能需要此组件？您是否可能更好地制作（例如，TImage）的后代并将您的文本作为其绘制方法的一部分进行绘制？如果它确实是一个TLabel后代（所有这一切都需要），那么我认为你将会遇到这个设计时问题，因为当标题为空时TLabel是否还有这个问题？我会对你得到的其他答案感兴趣！ :-)

要回复问题请先登录或注册

向TLabel添加图形的问题

2 个回复

发起人

getclientrect

tlabel

问题状态

向TLabel添加图形的问题

与内容相关的链接

2 个回复

发起人

getclientrect

tlabel

问题状态