habs schon selbst über den timer und dxinput1.update gelöst. den wechsel von Form 2 auf 3 mach ich nach wie vor mit showmodal
Delphi-Quellcode:
procedure TForm3.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
dxinput2.Keyboard.Update;
if dxinput2.Keyboard.Keys[Key_B]=true then
begin
dximagelist2.Items[0].Draw(DXDraw2.Surface, 0, 0, 0);
dxdraw2.Flip;
end;
if dxinput2.Keyboard.Keys[Key_N]=true then
begin
dximagelist2.Items[1].Draw(DXDraw2.Surface, 0, 0, 0);
dxdraw2.Flip;
end;
end;