复合部件的选择框未正确绘制

Question

我有一个复合组件,由a TEdit和a TButton(是的,我知道TButtonedEdit)继承而来TCustomControl.编辑和按钮在其构造函数中创建并放置在自身上.

在设计时,选择框没有正确绘制 - 我的猜测是编辑和按钮隐藏它,因为它是为自定义控件绘制的,然后由它们透支.

这里比较:

我也看到过其他第三方组件(比如TcxGrid也只绘制选择指标的外部)

问题:我该如何改变？

最简单的复制案例:

unit SearchEdit;

interface

uses
  Classes, Controls, StdCtrls;

type
  TSearchEdit = class(TCustomControl)
  private
    fEdit: TEdit;
  public
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Custom', [TSearchEdit]);
end;

{ TSearchEdit }

constructor TSearchEdit.Create(AOwner: TComponent);
begin
  inherited;
  fEdit := TEdit.Create(Self);
  fEdit.Parent := Self;
  fEdit.Align := alClient;
end;

end.

Answer 1

正如我在评论中所说，我能想到的最简单的事情就是在父级中绘制控件并在设计时向设计者“隐藏”它们。您可以通过在每个子控件上调用SetDesignVisible(False)来完成此操作。然后使用PaintTo在父级上进行绘画。

使用你的例子我们得到：

type
  TSearchEdit = class(TCustomControl)
  ...
  protected
    procedure Paint; override;
  ...
  end;

constructor TSearchEdit.Create(AOwner: TComponent);
begin
  inherited;
  fEdit := TEdit.Create(Self);
  fEdit.Parent := Self;
  fEdit.Align := alClient;
  fEdit.SetDesignVisible(False);
end;

procedure TSearchEdit.Paint;
begin
  Inherited;
  if (csDesigning in ComponentState) then
    fEdit.PaintTo(Self.Canvas, FEdit.Left, FEdit.Top);
end;