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

来源：百度知道 编辑：UC知道 时间：2024/09/21 01:48:17
就例如按钮button1。可以用button1.click.
keyup事件如何替代

//按下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;

用KeyPress事件。