当前位置：文江博客话题详情

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

发布于 2024-10-26 23:49:50 字数 222 浏览 1 评论 0原文

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

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

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

我的方法可以吗？

提前致谢。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

俯瞰星空 2024-11-02 23:49:50

如果您要创建自定义视觉控件，则需要创建按钮并手动放置它们。例如：

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，所以可能会有一些小错误！但它应该可以帮助你开始。）

If you're creating a custom visual control, you need to create the buttons and position them manually. For example:

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;

You can put the button creation into a loop and position each one according to where it should be.

(I wrote this off the top of my head, and I don't write a lot of Pascal anymore, so there may be some minor mistakes! But it should get you started.)

回复收藏 0 原文