Skip to content

Commit edb6a73

Browse files
Adjusted onKey-event handler TFrameCommands.EditNameKeyPress: Allow copy, paste, and cut operations
1 parent bb3012d commit edb6a73

File tree

1 file changed

+3
-0
lines changed

1 file changed

+3
-0
lines changed

Designer/FCommands.pas

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -389,6 +389,9 @@ procedure TFrameCommands.EditNameKeyPress(Sender: TObject; var Key: Char);
389389
{ Only allow valid Name/Symbol characters }
390390
Edit := Sender as TEdit;
391391
case Key of
392+
#3, // Ctrl-C
393+
#$16, // Ctrl-V
394+
#$18, // Ctrl-X
392395
#8, // backspace
393396
'A'..'Z',
394397
'a'..'z',

0 commit comments

Comments
 (0)