Brug af Funk. taster F1 - F12 mm.
HEJ,I en applikation har jeg brug for at bruge funk taster F1-F12 samt ALT, SHIFT og Ctrl samt kombinationer heraf.
Mit program er bygget op med en MAIN_FORM, som har 8 billeder. Hvert billede har et Image-click-event, som styrer en form (og de dermed relaterede (sub-)forme.
Min tanke er at når bruger trykker F1 eller Ctrl-F1 eller ALT-CTR-F1 (har ikke besluttet mig endelig) svarer dette til et IMage1.Click-event, som "starter" formen for Image1 (som når bruger mise-klikker på Image1).
Jeg har på MAIN FORM gjort følgende i ONFORMKEY :
IF (ssAlt in Shift) AND (char(key) in ['1']) then
BEGIN
BLA BLA BLA ....
END;
Dette "fanger" ALT 1 .
(IF Key = VK_F1 -- > virker ikke ! (tænkt som HJÆLPE-funk))
Udvider jeg funktionen:
IF (ssAlt in Shift) AND (ssCtrl in Shift) AND (char(key) in ['1']) then
BEGIN
BLA BLA BLA ....
END;
Fanger ALT CTRL 1 ,
(ditto for F1 --> F10)
Men det fungerer KUN EEN gang. ALtså jeg får kun EET "shot". Når "bla bla bla" returnerer er jeg låst. Musen fungerer stadig.
Museklikker jeg på Image1 får jeg korrekt visning af "Image1 form" og når jeg returnerer fra denne er ALT CTRL 1 Stadig uvirksom...
Hvad laver jeg forkert ?
Har prøvet med Appl.ProcessMessages uden resultat.
KRistian