Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)
-   -   suchfunktion (https://www.delphipraxis.net/160598-suchfunktion.html)

ulilüding 22. Mai 2011 09:10

suchfunktion
 
Hallo Leute,
auf daß Ihr Euch totlacht: Strg+F kmmt in meinem Formular irgendwie nicht an, so daß ich damit eine Suche starten könnte. Key preview, shortcut für Menüpunkt, key down-Ereignis, ALLES tot. Der scancode für die strg-Taste kommmt an (17), danach macht das f nix mehr.
www = werweißwas
Danke vom Uli LÜding

alfold 22. Mai 2011 10:17

AW: suchfunktion
 
Gegenfrage: hat es denn schon funktioniert?
Ansonsten raten wir uns alle Dumm, woran es in Deinem Code scheitert!

Also www, wo, wie, was steht in deinem Code?

Gruss alfold

FredlFesl 22. Mai 2011 10:43

AW: suchfunktion
 
iww: ichweisswas.

Bei mir klappt es, also ist STRG+F bei dir ein HotKey einer anderen Anwendung (glaube ich)
Versuch mal, selbst einen Hotkey zu registrieren ("RegisterHotKey")

DeddyH 22. Mai 2011 14:15

AW: suchfunktion
 
Oder das ist wieder so ein Logitech-Problem.

ulilüding 22. Mai 2011 19:50

AW: suchfunktion
 
Hi und Dank an alle,
zum code (rudimentärer geht's kaum):

procedure myform.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ssCtrl in Shift then begin // is strg gedrückt?
if key=70 then messagebeep(0) // ist es f? dann klingeling
end
end;

Klingeling kommt aber nicht. An logitech glaub' ich eher weniger (nix von denen am Start), das mit dem registerHotkey verfolge ich mal. Ergebnisse demnächst hier.
LG Uli

alfold 22. Mai 2011 20:12

AW: suchfunktion
 
Versuchs mal so
Code:
if (key = 70) and (shift = [ssCtrL]) then
begin
//machwas
end
Gruss alfold

ulilüding 22. Mai 2011 20:44

AW: suchfunktion
 
Das wäre schön... einfach andersherum. Das Problem ist, daß FormKeyDown von der f-Taste gar nicht mehr aufgerufen wird, wenn die Steuerungstaste gedrückt ist. Die procedure wird erst gar nicht durchlaufen. STRG-F hängt sich irgendwo vorher raus, bzw. geht erst gar nicht an das Hauptformular meines Programms.

alfold 22. Mai 2011 20:52

AW: suchfunktion
 
Schliesse mal delhpi
setzt mal ein neues Projekt an und teste den Aufruf!

Gruss

ulilüding 22. Mai 2011 21:36

AW: suchfunktion
 
Nö, alfold, da geht nix. Daß delphi selber den hotkey abfängt liegt sicher nahe. Aber ist's wohl nicht. Ich versuche morgen mal die registerhotkey-Nummer. Danke einstweilen an alle
LG Uli

Gollum 23. Mai 2011 07:46

AW: suchfunktion
 
Hallo,

setzte einmal die Eigenschaft KeyPreview des Formulares auf True.

ulilüding 24. Mai 2011 08:07

AW: suchfunktion
 
Bis hieher Danke, Leute,
falls noch jemand Lust hat: Das Problem hängt zweifelsfrei mit der Verwendung eines Menüs (TMainMenu) zusammen, denn wennn ich das Menü rausschmeiße klappt STRG+F. Ob STRG+F als shortcut im menü drinsteht oder nicht ist gleich, auch dort passiert nix, soll heißen der Menüeintrag mit diesem shortcut wird nicht aufgerufen. Ohne diesen shortcut "frißt" das Menü die Tasteneingabe aber dennoch, so daß sie nicht mal im Hauptformular ankommt(und auch keyPreview nix nützt). autoHotkeys ist auch ohne Wirkung. Idee?
LGU

blauweiss 24. Mai 2011 09:59

AW: suchfunktion
 
Sicher, daß der ShortCut STRG+F im MainMenu nicht mehrfach vergeben ist......?

Gruß
blauweiss

ulilüding 24. Mai 2011 10:10

AW: suchfunktion
 
ja, ganz sicher. Und autoHotkey würde da ja auch ein Wörtchen mitreden. Wenn der shortcut für IRGENDWAS vergeben wäre, sollte ja auch IRGENDWAS passieren, menümäßig. Tut sich aber nix.

ulilüding 24. Mai 2011 10:22

AW: suchfunktion
 
Nur soviel: man sollte sich nie sicher sein, bevor man nicht nochmal nachgeguckt hat. Insofern hast Du, blauweiss, absolut recht gehabt. Die "heimliche" Routine für den shortcut sollte auch nix sichtbares machen. Damit ist dieses Thema zu ende, seine Dämlichkeit Uli dankt allen Beteiligten und hofft, es habe trotzdem etwas Spaß gemacht. CUnextTime


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:35 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz