delphi中如何不用按键盘触发keyup事件

就例如按钮button1。可以用button1.click.keyup事件如何替代

2024-12-29 07:49:53

推荐回答（2个）

回答1：

//按下button就会触发edit1的keyup事件

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ShowMessage('KeyUp');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
w :Word;
begin
w := 65;
Edit1KeyUp(nil,w,[]);
end;

回答2：

用KeyPress事件。

最新问答

我家兔子为何死之前没有症状

做java项目需要什么样的软硬件环境？

电脑硬盘坏了还在保修期内，如果要换还用自己花钱吗

人类可能穿越到未来吗？

baby vox的虚假的爱情，韩文名和歌词提供一下！还有柳时元的约定的韩文歌词谢谢

在excel中一般格式如何转换成日期格式？

东轼的一时多少豪杰的前一句是什么

几道初三的化学题！！！！急急急急急！！

有句歌词…请不要说爱上我是因为寂寞！是什么歌？

厦门到池州最快最经济的路线是什么