tastenzuweisung

[transporter2]

wie kann man eine Tastenzuweisung machen?

[sakura]

Wo und an welcher Stelle willst Du das denn machen. Es gibt viele Möglichkeiten, keiner wird jetzt alle aufzählen

......

[Gentleman]

hallo erstmal ´

was meinst du denn genau damit?
meinst du wie man die tasten auf der tastatur mit funktionen belegt? wenn ja, dann schau dir mal das event OnKeyDown an.

[transporter2]

beispiel: ich drücke die "d" taste und dann heisst label1 hallo als ereignis.

[Gentleman]

meinst du soetwas?

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key= 'd' then
    begin
      Label1.Caption:= 'hallo';
    end;
end;

[malo]

Dazu aber nicht vergseen, KeyPreview des Forms auf true zu stellen

[transporter2]

danke hat geklappt

[malo]

Achja, ein Nachtrag noch: Schau dir doch auch mal die virtuelle Tastencodes an, da steht zu jeder Taste (auf Standarttastaturen), wie man diese anspricht

[Brueckenhauer]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_LEFT then
  begin
    Button1.left:=Button1.left-10;
    Button1.Caption:='Left';
  end;
   if key=VK_RIGHT then
  begin
    Button1.left:=Button1.left+10;
    Button1.Caption:='Right';
  end;
end;

keypreview der form ist auf true gestellt, aber es passiert trotzdem nix, woran liegt das?

[Gregg]

Vielleicht weil du den Button fokussiert hast und nicht die Form.

Hmm.. Daran liegst auch nicht.
Seltsamerweise geht das auch nur mit dem Keypress Event und das kann keine Sondertasten abfragen