将Custom控件添加到另一个自定义控件

Question

我想要完成的是创建新的触摸键盘.

首先,我创建了从速度按钮派生的按钮.完成,现在我需要创建多个按钮并将它们布局在某处.这是我被卡住了.

我创建了一个新组件,我从TGraphicControl派生(这应该是我的新触摸键盘),但我不知道如何向画布添加组件.我实际上不知道我是否应该将它们添加到画布或其他组件(例如面板)!？!

我的方法好吗？

提前致谢.

Answer 1

如果要创建自定义可视控件,则需要创建按钮并手动定位它们.例如:

TOnScreenKeyboard = class(TWinControl)
public
  constructor Create(AOwner: TComponent);
end;

[...]

constructor TOnScreenKeyboard.Create(AOwner : TComponent)
var
  TempButton : TSpeedButton;
begin
  inherited;
  TempButton := TSpeedButton.Create(self);
  TempButton.Parent := self;
  TempButton.Top := 10;
  TempButton.Left := 15;
  TempButton.Caption := 'A';
end;

您可以将按钮创建放入循环中,并根据应该的位置定位每个按钮.

(我把它写成了我的头脑,我不再写很多Pascal,所以可能会有一些小错误!但它应该让你开始.)