Tastetryk

men en
onkeydown

OnKeyDown findes ikke

Det er i en Frame det er lavet, så OnKeyDown og OnKeyUp findes ikke

Hvilken version af Delphi? Jeg har både: OnKeyDown, OnKeyPress, OnKeyUp og OnShortCut !?

Samme her

Det er i Delphi5 og i en Frame

En form har en property ved navn KeyPreview. Hvis du sætter denne til True, vil formen se tastatur-events inden den fokuserede komponent (online hjælpen har et eksempel). En frame har dog ikke denne property. Men sæt den på den form, der skal indeholde frame\'n, og deleger så videre til en metode på den frame.

lectoc>> Jeg vil gerne have at framen kører uafhængit af hvilket program den hentes ind i så det er et så selvstændigt modul som muligt

Til musen kan man tilføje nedenstående
MouseMove(var m:twmmouse) ; message wm_MouseMove;

Findes der ikke noget tilsvarende tiltastatur ?

Problemet er at tastetryk\" ses af en form da denne godt kan \"have focus\". En frame derimod har aldrig focus og vil derfor ikke se dine tastetryk.

Ja det kan der selvfølgelig være noget om, og jeg sender nu OnKeyPress videre til min Frame.

Men jeg vil jo gerne have det til at virke sådan at SpeedButn. bliver nede når jeg trykker på den tast som hører til den pågældende knap.

jeg kan imidlertid ikke sætte SpdBtn.Down til true ?

Jo man kan GroupIndex må ikke være = 0

Brug din Tform\'s OnKeyUp procedure og sæt KeyPreview til True.

skriv dernæst følgende i FormKeyUp proceduren:

case key of
  vk_numpad1 : speedbutton1click(sender);
  vk_numpad2 : speedbutton2click(sender);
  vk_numpad3 : speedbutton3click(sender);
  vk_numpad4 : speedbutton4click(sender);

osv...

end;

Håber du kan bruge det

ZeroHero

Men så skal jeg jo have SpdBtn op igen når den er trykket ned, og tataturknappen er sluppet.

Her må man kunne lave noget generelt kode som tester for alle spedBtn på den pågældende form med noget sender as..is er der ikke en som har et lille kode eksempel på en gennemtraversering af komponenterne på en form ?

prøøv følgende...

KeyPress(var msg : Twmsyschar); message wm_syschar;

eller

KeyPressDown(var msg : Twmsyskeydown); message wm_syskeydown;

eller

KeyPressUp(var msg : Twmsyskeyup); message wm_syskeyup;


ZeroHero