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

自定义数字键盘并将特定数字发送到活动文本框

发布于 2024-10-14 21:03:43 字数 105 浏览 2 评论 0原文

我制作了一个带有数字的自定义小键盘。它是一个框架和其中的按钮。我把这个组件放到了表单上。现在我不知道如何捕获表单上的活动控件，然后将特定于按钮的数字发送到该控件。

有人可以帮我吗？

原文

分享到QQ

分享到微博

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

发布评论

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

浊酒尽余欢 2024-10-21 21:03:43

IMO 最简单的方法是将按钮标题的数字存储在按钮的 Tag 属性中。然后，您可以对所有按钮使用相同的事件处理程序：

procedure TForm1.NumButtonClick(Sender: TObject);
var
  NumTyped: Integer;
begin
  NumTyped := TButton(Sender).Tag;
end;

另一种选择是读取事件中的标题，但是您必须进行从字符串到整数的转换，如果您不小心分配了没有数字标题的按钮，这将中断到事件处理程序：

procedure TForm1.NumButtonClick(Sender: TObject);
var
  NumTyped: Integer;
begin
  NumTyped := StrToInt(TButton(Sender).Caption);
end;

请注意，这样您就不必关心您的组件是否是 ActiveControl；您只需将事件处理程序分配给组件的每个按钮，而无需执行任何其他操作，然后如果触发该事件，您就知道活动控件是您的组件以及单击了其中的哪一个按钮。

编辑：根据下面的评论，这个问题比看起来的要多一些。

如果您尝试将号码发送到 TEdit（您的“文本框”），则必须执行其他一些操作。首先，不要使用 TButton 或 TBitBtns，因为它们会获得焦点并将焦点从您的编辑控件上夺走。请改用 TSpeedButton。将您想要的每个标题的标题设置为您希望其放入 TEdit 中的编号。

其次，由于您想将内容放入 TEdit 中，因此无需费心使用标签。将所有 TSpeedButton 的事件处理程序设置为此一个（假设您的 TEdit 是 Edit1）：

procedure TForm1.NumButtonClick(Sender: TObject);
begin
  Edit1.SelText := TSpeedButton(Sender).Caption;
end;

这会将 TEdit Edit1 中的任何选定文本替换为 SpeedButton 的标题，或将其添加到当前插入符号（编辑光标）位置编辑。

如果您希望将其放入多个 TEdit 中的任何一个中，也可以进行一些细微的更改：

procedure TForm1.NumButtonClick(Sender: TObject);
begin
  if ActiveControl is TEdit then
    TEdit(ActiveControl).SelText := TSpeedButton(Sender).Caption;
end;

如果这仍然不是您想要完成的任务，请编辑您的原始问题并向其添加更多信息，所以我们有机会帮助您得到答案。

The easiest way IMO is to also store the number that is the caption of the button in the button's Tag property. You can then use the same event handler for all buttons:

procedure TForm1.NumButtonClick(Sender: TObject);
var
  NumTyped: Integer;
begin
  NumTyped := TButton(Sender).Tag;
end;

The other alternative is to read the caption in the event, but then you have to do a conversion from string to Integer, which will break if you accidentally assign a button without a numeric caption to the event handler:

procedure TForm1.NumButtonClick(Sender: TObject);
var
  NumTyped: Integer;
begin
  NumTyped := StrToInt(TButton(Sender).Caption);
end;

Note that this way you don't have to care about whether your component is the ActiveControl or not; you just assign the event handler to every one of your component's buttons and nothing else, and then if the event is triggered you know that the active control is your component and which one of it's buttons was clicked.

EDIT: Based on the comment below, there's a little more to the question than it appears.

If you're trying to send the number to a TEdit (your "textbox"), you have to do a couple of other things. First, don't use TButtons or TBitBtns, as they get focus and will take the focus away from your Edit control. Use TSpeedButton instead. Set the Caption of each one you want to the number you want it to put in the TEdit.

Second, since you want to put the content in the TEdit, you don't need to bother with the tag. Set the event handler for all the TSpeedButtons to this one (which assumes your TEdit is Edit1):

procedure TForm1.NumButtonClick(Sender: TObject);
begin
  Edit1.SelText := TSpeedButton(Sender).Caption;
end;

This replaces any selected text in the TEdit Edit1 with the caption of the SpeedButton, or adds it at the current caret (edit cursor) position in the TEdit.

If you're looking to put it in any one of a number of TEdits, a slight change will handle that as well:

procedure TForm1.NumButtonClick(Sender: TObject);
begin
  if ActiveControl is TEdit then
    TEdit(ActiveControl).SelText := TSpeedButton(Sender).Caption;
end;

If this is still not what you're looking to accomplish, please edit your original question and add more information to it, so we have a chance of helping you get your answer.

回复收藏 0 原文