LAD VÆRE MED AT KIGGE HER!

Tags:    delphi

User
Bruger #953 @ 29.03.02 02:40
Så kan du få dine UP NeourMaN............come get em ;-)






1 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 5 karma
Sorter efter stemmer Sorter efter dato
Så kan du få dine UP NeourMaN............come get em ;-)




DOH...!!!
du kan selv overføre UP til mig via dit kontrolcenter... og det her er jo plat... men her kommer det spørgsål som aldrig blev stillet:

"hvordan tjekker jeg om brugeren holder shift + alt + en tast nede"

mit svar (dog ikke et helt korrekt et men det virker :D):

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssAlt in Shift) and (key=49) then begin
//hvad din application skal udføre
end
end;

key 49 er ulogisk nok 1 tasten ovenfor bogstaverne...

hvis du har problemer med at finde ud af hvilke taster der er hvilke så brug dette program:
www.friserverplads.dk/necroman/keyting.exe

Man against man untill man is no more...



t