字符转虚拟键码问题,高手求教!!!

Question

比如在EDIT文本框中输入ABCEFG点击按钮Button1,就会自动模拟键盘按下ABCDEFG,如何实现呢?

Answer 1

procedure TForm1.Button3Click(Sender: TObject);
var
  I :Integer;
  AStr :string;
  ATemp :Char;
begin
  AStr :=Trim(Edit1.Text);
  for I:=1 to Length(AStr) do
  begin
    ATemp :=AStr[I];
    Edit1KeyPress(Sender,ATemp);
  end;  
end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  ShowMessage(Key);
end;

Answer 2

Edit1KeyPress(Sender,ATemp);
[错误] Unit1.pas(44): Missing operator or semicolon

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  Str : String;
begin
  str := Edit1.Text;  for I := 1 to length(str)  do
  begin
    Edit2.SetFocus;
    keybd_event(VkKeyScan(str[i]),0,KEYEVENTF_EXTENDEDKEY,0);
  end;
end;end.