Hallo,
habe ein kleines programm aus (bis jetzt) drei formen (jeweils eigene units).ich wechsle von form 2 auf form 3
Delphi-Quellcode:
procedure TForm2.startClick(Sender: TObject);
begin
Form3.ShowModal;
Close;
end;
und versuche dann in form3 über dxinput die tastatur anzusteuern, um bilder auf dxdraw malen zu lassen. allerdings geht das nicht (die maus ansteuern geht schon). hab den code in einem programm mit nur einer form getestet und dort ging er! auch wenn ich beim wesel von form2 auf drei setfocus.form3 verwende funktioniert es nicht.
Delphi-Quellcode:
procedure TForm3.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Form3.DXInput2.Keyboard.Keys[Key_B]=true then
begin
Form3.DXImageList2.Items[0].Draw(DXdraw2.Surface,0,0,0);
DXdraw2.Restore;
end;
if Form3.DXInput2.Keyboard.Keys[Key_N]=true then
begin
Form3.DXImageList2.Items[1].Draw(DXdraw2.Surface,0,0,0);
DXdraw2.Restore;
end;
end;
eigenartig ist auch, dass trotz des close befehls fenster2 noch immer offen ist. vermue ja, dass er die tatsturbefehle dm vorherigen oder dem ersten fenster zurechnet, aber wie kann ich das verändern?
danke