Genvejs taster

oncreate:
keypreview := true;


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of
49: tal1.Click; //1
50: showmessage('2'); //2
51: showmessage('3'); //3
52: showmessage('4'); //4
53: showmessage('5'); //5
54: showmessage('6'); //6
55: showmessage('7'); //7
56: showmessage('8'); //8
57: showmessage('9'); //9
48: showmessage('0'); //0
end;
end;

Hvad mener du ?
kan du ikke uddybe det lidt !

Stoney

189: showmessage('-'); //-
187: showmessage('+'); //+

hvis du selv skal tilføje flere kan du jo skrive:
caption :=inttostr(key);

og så selv aflæse des nr

Tak for hjælpen, det ser ud til at det virker.
Jeg havde prøvet noget lignende før, men det virkede ikke. Jeg tror det var fordi jeg manglede:
oncreate:
keypreview := true;

dkn> Hvad gør jeg så hvis der er noget jeg vil aktivere når der bliver klikket / ?? Det består jo af 16 (shift) der skal klikkes ned og 55 (7).

Jeg har fået det til at virke....