Question

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

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

Answer 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;

Answer 2

用KeyPress事件。