[delphi] key codes #...

[Verwijderd]

ik zoek de key code voor de shift toets
dus #..

ik kan alleen deze vinden
#13 = enter
#0 = opheffen toetsslag

(ik heb al gezocht en kon alleen dit topic vinden :
[topic=426043/1/25] )

[whoami]

VK_SHIFT al geprobeerd?

[Marv]

Staan allemaal op http://delphi.about.com (en die site staat in de FAQ)

[Varienaja]

Maak een form met een event onKeyDown.

Zet een breakpoint en kijk wat de value van Key is als je op shift drukt.

Duh.

[Verwijderd]

..

[Marv]

Op dinsdag 28 mei 2002 15:01 schreef Marv het volgende:
Staan allemaal op http://delphi.about.com (en die site staat in de FAQ)

http://delphi.about.com/library/blvkc.htm?terms=key+codes

Voor de volledigheid

[Glimi]

Op dinsdag 28 mei 2002 15:01 schreef Varienaja het volgende:
Maak een form met een event onKeyDown.

Zet een breakpoint en kijk wat de value van Key is als je op shift drukt.

Duh.

Iets vriendelijker ajb. Hij heeft al z'n best gedaan door te searchen (misschien niet 100%, maar het idee is er) en verdient dus gewoon een normaal antwoord. Het is namelijk neit het eerste waar ik aan zou denken, deze oplossing, als ik dit probleem had.

[Verwijderd]

en ik zou zeggen probeer het zo eens, enter werkt wel, maar als je op shift drukt gebeurt er nix, behalve in combinatie met een letter duh...

[Verwijderd]

Op dinsdag 28 mei 2002 15:01 schreef Varienaja het volgende:
Maak een form met een event onKeyDown.

Zet een breakpoint en kijk wat de value van Key is als je op shift drukt.

Duh.

Je weet dat shift zo geen karakter afgeeft?

[Verwijderd]

van whoami & http://delphi.about.com/library/blvkc.htm?terms=key+codes

VK_SHIFT 10 SHIFT key

maar hoe plaats ik die hierin

if not (key in ['0'..'9','-',#8,#7]) then
key:=#0;

[whoami]

code:

if not Key in [...,#10]

toch?

[Verwijderd]

nope..
maar ik ben er al uit,
was toch simpeler als ik dacht namelijk :

if not (key in ['a'..'z','A'..'Z',#8,#7]) then
key:=#0

maar toch bedankt

[Varienaja]

Op dinsdag 28 mei 2002 15:10 schreef ItSnows het volgende:
Je weet dat shift zo geen karakter afgeeft?

code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  caption:='bla';
end;

Met een druk op shift krijg ik: Key=16 en Shift=[ssShift].