OnKeyPress

[SaFu]

wie mache ich das nochmal mit den Tasten

Wenn ich bei gleichzeitig shift, Großschreib und T- Taste was auslösen will

Delphi-Quellcode:

procedure KeyPress(Sender: TObject; var Key: Char);
begin
If Key = (Key = VK_CONTROL) and (key = VK_T) then
  begin
  // mach was

  end;
end;

[DeddyH]

Nimm KeyDown und Werte Shift aus.

[SaFu]

Okn und was stimmt an dem T nicht

Delphi-Quellcode:

If ((Shift = [ssCtrl])and (Key = VK_T)  then
  begin
  // mach was

  end;
end;

[DeddyH]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Shift = [ssCtrl]) and (Key = Ord('T')) then
    ShowMessage('Mööp');
end;

[SaFu]

irgendwie geht das nicht im StringGrid kann das sein??

[mkinzler]

Was meinst du mit Großschreib-Taste?

[DeddyH]

Zitat von fuknersascha:

irgendwie geht das nicht im StringGrid kann das sein??

Bei mir geht' s.

[SaFu]

Ja shift natürlich 1. Strg+shift und dann T

[SaFu]

Ok ich sollte auch mal die richtigen Tasten drücken