das gedückthalten einer taste simulieren

[Lannes]

Hallo,

nimm doch den Vorschlag von Neutral General #7 und bau Keybd_Event entsprechend ein, z.B.:

Delphi-Quellcode:

var
  Form1: TForm1;
  BooleanVariable : Boolean;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  BooleanVariable := False;
  Edit1.setfocus;
  repeat
    Keybd_Event(Ord('A'),0,0,0);
    sleep(50);
    Application.Processmessages;
  until BooleanVariable;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  BooleanVariable := True;
end;

Keybd_Event für KeyUp ist IMHO nicht erforderlich.