Hallo zusammen,
ich überprüfe mit folgenden Code die gedrückten Tasten bei einer Komponente :
Delphi-Quellcode:
procedure TForm16.OnAppMsg(var Msg: TMsg; var Handled: Boolean);
begin
Handled := False;
if Msg.message = WM_KEYDOWN then
begin
if (TV_1.IsEditing) and (TV_1.Tag = 0) then
begin
case Msg.wParam of
VK_BACK, VK_SHIFT, VK_INSERT, VK_DELETE, 47..91, 96..109 :
begin
Handled := True;
EditedTxt := EditedTxt + chr(Msg.wParam);
NodeEdit := True;
end;
else
if (Msg.wParam = VK_RETURN) and (Msg.lParam <> TVN_ITEMCHANGED) and (not NodeEdit) then
begin
ShowMessage('Bitte vergeben Sie einen Namen');
NodeEdit := False;
tmpNode.EditText;
end;
end;
Handled := False;
end;
end;
end;
Wie kann ich hier nun noch die Tastenkombinationen STRG+C, STRG+X, STRG+V abfragen ?