Einzelnen Beitrag anzeigen

Benutzerbild von mleyen
mleyen

Registriert seit: 10. Aug 2007
609 Beiträge
 
FreePascal / Lazarus
 
#4

Re: Tastenkombination über VK_xxxxx abfragen

  Alt 3. Apr 2009, 07:47
Moin,
Zitat von RWarnecke:
Er springt mir auch in die untere IF-Abfrage rein, nur im TreeView wird es nicht angezeigt. Habe ich da noch einen Denkfehler drin ?
Wenn TV_1 dein TreeView ist, liegt das daran, dass es nur in der IF-Abfrage verwendet wird.

Ich hab jetzt deinen Code nicht so ganz verstanden, aber hier nochmal ein Code-Beispiel zum Abfragen der Tastenkombinationen STRG+C, STRG+X, STRG+V:
Delphi-Quellcode:
procedure TForm16.OnAppMsg(var Msg: TMsg; var Handled: Boolean);
begin

  if Msg.message = WM_KEYDOWN then
  begin // Die KeyDown-Msg brauchen wir
    if GetKeyState(VK_CONTROL) < 0 then
    begin // Wenn Strg gedrückt ist

      case Msg.wParam of
        67, 99: ShowMessage('Strg + c gedrückt');
        86, 118: ShowMessage('Strg + v gedrückt');
        88, 120: ShowMessage('Strg + x gedrückt');
      end;

    end;
  end;

end;
  Mit Zitat antworten Zitat