mehrere Key-Down Erreignisse gleichzeitig ausführen

[Bummi]

büschn Esoterisch aber, ein Beispiel

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  a:Boolean;
  b:Byte;
begin
   b := $2;
   a := true;
   move(b,a,1);
   if a then Showmessage('1. Wahr') else Showmessage('1. False');
   if a = true then Showmessage('2. Wahr') else Showmessage('2. False');end;

end.