ShortCut zuweisen?

[Tpercon]

Wie wandel ich den Integer richtig um, damit der Short Cut wirklich z.B. STRG + 1 lautet

Code:

NewItem.ShortCut:=ShortCut(Ord(i+1),[ssCtrl]);

i ist ein Integer mit einem Wert zwischen 0 und 9.

Gruß

[jbg]

i + ord('1');

[MrSpock]

Hallo jbg,

müsste es nicht i+Ord('0') heißen?

[jbg]

Wenn er auch [STRG]+[0] haben will, dann ja.

[MrSpock]

Hallo jbg,

Ord('0') ist doch 48. Wenn du also die 0 übergeben willst brauchst du 48+0, bei 1 dann 48 +1. Wenn du jedoch i+Ord('1') übergibst, erhälst du für i= 0 die 49, für i=1 die 50, etc...

=> es ist tatsächlich immer i+Ord('0')

[jbg]

Ich bin von seinem Code ausgegangen:

Zitat:

Ord(i+1)

Was ich so verstehe: Er möchte mit i E [0;9] die Tastenkombis STRG+1,STRG+2, ... haben.
Ich sehe aber gerade, dass er damit auch STRG+10 erhalten würde, was sicher nicht seine Absicht ist. Ergo es muss doch ord('0') heißen.

[Daniel B]

Hi,

er möchte Strg+0 bis Strg+9. Also 10 Zahlen.

[Tpercon]

@ Daniel B: Gut das andere wissen, was ich will.
Nur eigentlich sollte die 0 erst nach der 9 kommen, weshalb die obige Lösung nicht richtig brauchbar ist.
Also Strg + 1,2,3,...9,0! Deshalb ist es ja so kompliziert und ich weiß keine Lösung.

[Christian Seehase]

Moin Tpercon,

dann versuch's doch mal mit

Code:

for i := 1 to 10 do
begin
  NewItem.ShortCut:=ShortCut(48+(i mod 10),[ssCtrl]);
end;

Das sollte eigentlich das Gewünschte erreichen.

[Tpercon]

Danke, es funktioniert wie gewollt!