Delphi |调用具有参数的过程(Sender：ToObject);

py49o6xq 于 2023-08-04 发布在其他

关注(0)|答案(1)|浏览(116)

我想通过过程将一个键链接到编辑，比如，我按下数字键盘上的0，然后调用过程TForm.button0Click(Sender : TObject)，但我不知道如何操作。

procedure TForm1.buttonNum0Click(Sender: TObject);
begin
  edit1.Text := edit1.Text + '0';
end;`

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case key of
    '0':
      buttonNum0();
  end;
end;

字符串

delphi

来源：https://stackoverflow.com/questions/76740479/delphi-calling-a-procedure-that-has-the-parameters-sender-tobject

1条答案

按热度按时间

njthzxwz1#

不能将事件处理程序Map到所按的特定键。只有OnKeyPress和OnKeyDown事件需要检查按下的键，然后为每个特定的键调用另一个方法。但此时，不需要将其结构化为具有Sender参数的事件处理程序。如果它是一个只处理特定于一个按键的方法，例如，'0'，那么它只需要命名为：

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case key of
    '0': ProcessKeyPress_0;
    '1': . . .;
    . . .
  end;
end;

procedure TForm1.ProcessKeyPress_0;
begin
  edit1.Text := edit1.Text + '0';
end;

字符串
当你使用换档键、控制键和方向键时，它会更适用。这是在按下某些组合键时执行特殊操作的众所周知的方式。

赞(0）回复(0）举报 2023-08-04

我来回答

Delphi |调用具有参数的过程(Sender：ToObject);

1条答案

相关问题

热门标签

最新问答