Soapy - Di 22.01.08 23:42
Titel: Tastendruck simulieren -> Hilfe
Hallo Delphianer,
Nun...
Mein Problem:
Ich will ein Strategiespiel programmieren (mit einem Freund).
Dabei soll es eine Minimap geben, die man ein und ausblenden kann, indem man auf eine Taste auf der Tastatur (in meinem Fall 'k') drückt.
Jetzt kommt meine Frage:
Man soll die Minimap mit der gleichen Taste aktivieren und deaktivieren können.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| procedure TForm1.Timer1Timer(Sender: TObject);
begin
if odd(GetAsyncKeyState (VK_Escape)) then
begin
PopUpMenu1.Popup(50,50);
end;
begin
if boolean(getasynckeystate(ord('A'))) then
Scrollbox2.Visible := false;
end;
begin
if boolean(getasynckeystate(ord('A'))) then
Scrollbox2.Visible := true;
end;
end; |
Weshalb funktioniert das nicht?
Habt ihr andere Vorschläge wie ich den Tastendruck simulieren kann um das Gleiche zu erreichen?
Ich danke schonmal für die Antworten!
Xentar - Mi 23.01.08 14:35
Das ganze kann man dann noch ein wenig optimieren:
Delphi-Quelltext
1:
2:
| if boolean(getasynckeystate(ord('A'))) then
Scrollbox2.Visible := not Scrollbox2.Visible; |
Mehr brauchts nicht ;) Nun wird mit jedem Tastendruck der Visible-Zustand invertiert / umgeschaltet.