Forum: Win32/Win64 API (native code)
Delphi
by Saturos,
16. Dez 2007
Ich habs jetzt:
procedure TForm1.WMHotKey(var Message:TMessage);
begin
If Message.wParam=HotKeyID then begin
if (not klick) and (anaus) then begin
klick:= true;
GetCursorPos(curs);
timer1.Enabled:=true
end
else if klick then
Forum: Win32/Win64 API (native code)
Delphi
by Saturos,
16. Dez 2007
:)
anaus: da gibt es einen Button, der das steuert. Also auch, ob bei Drücken des Hotkeys was läuft oder net.
klick: soll dazu dienen, dass in den Bedingungen erkannt wird, ob der timer läuft oder nicht (:wall: verdammt das geht auch direkt)
curs: speichert nur die Zeigerposition
Forum: Win32/Win64 API (native code)
Delphi
by Saturos,
16. Dez 2007
Nein es funktioniert auch so nicht. der Timer läuft und läuft ....
Forum: Win32/Win64 API (native code)
Delphi
by Saturos,
16. Dez 2007
Hmmm, das liegt daran, dass die Unterteilung net hinhaut. Das, wo anaus überprüft wird, ist noch der erste Block.
procedure TForm1.WMHotKey(var Message:TMessage);
begin
If Message.wParam=HotKeyID then begin
if not klick then begin//1.Block
klick:= true;
GetCursorPos(curs);
if anaus=true then
timer1.Enabled:=true
else if klick then //2.Block
Forum: Win32/Win64 API (native code)
Delphi
by Saturos,
16. Dez 2007
Also in der CodeLibrary stand, dass man auch eine einzelne Taste definieren kann. Diese letzte vereinbarte Taste muss laut Delphi vom Typ cardinal sein. Das dürften aber doch dann nur "Sondertasten", wie Pfeil auf oder - ab sein oder irre ich mich da?
Beim Testen habe ich herausgefunden, dass das Klicken außerhalb des Forms auch funktioniert, mein Problem ist nur den Timer wieder zu disabeln....
Forum: Win32/Win64 API (native code)
Delphi
by Saturos,
16. Dez 2007
Ja, eigentlich schon. Wobei ich da nur ö genommen hätte, also mit 0 anstelle von MOD_SHIFT etc. .
Forum: Win32/Win64 API (native code)
Delphi
by Saturos,
15. Dez 2007
Hmmm...aber leider nicht zur lösenden Antwort, denn Ord('ö/Ö') habe ich schon dutzende Male versucht. :freak:
Forum: Win32/Win64 API (native code)
Delphi
by Saturos,
15. Dez 2007
Ich habe nun dazu entschlossen es mit den Hotkeys zu versuchen und gemerkt, dass ich die Keydownprocedur gar nich brauche :?
Hot-Keys systemweit setzen und verwenden <- Dort wurde im Beispiel Strg+F1 als Hotkey verwendet, aber für meine Zwecke ist ö nunmal ganz gut. Meine Frage ist nun, was ich in der Zeile:
...RegisterHotKey(Self.Handle, HotKeyID, MOD_SHIFT, VK_F1); ... für VK_F1 einsetzen...
Forum: Win32/Win64 API (native code)
Delphi
by Saturos,
15. Dez 2007
Danke :thumb: Dass es auf ö reagiert, hab ich zwar nicht hinbekommen, aber mit "o" geht es.
Forum: Win32/Win64 API (native code)
Delphi
by Saturos,
15. Dez 2007
Gut, das hilft mir dann später weiter, aber momentan ist es noch so, dass nichteinmal dann, wenn mein Prog den "Fokus" hat die Buchstaben durchkommen.
Falls das hilft, habe ich Hier mal das Prog hochgeladen.
Forum: Win32/Win64 API (native code)
Delphi
by Saturos,
15. Dez 2007
Ja, wobei es auch manchmal ohne dessen Aktivierung ging. Wahrgenommen bedeutet hier, dass selbst dann, wenn ich das Prog aktiv habe und zum Beispiel ein anderes Bild auf Tastendruck einfügen lasse (testweise, anstelle der Klicks), Delphi nicht auf das Drücken der Taste reagiert.