Отредактировать строку в буфере обмена (RAD 10.4)

[hexor_boo]

При каждом Ctrl+V там происходят-отлавливаются сообщения 273, 307, 273 (точно именно эта последовательность и это количество сообщений).

Winapi.Messages:

WM_COMMAND      = $0111; //273
WM_CTLCOLOREDIT = $0133; //307

[macomics]

Для WM_COMMAND надо дополнительно смотреть на wPar, там уточняющее значение.

WM_CTLCOLOREDIT - это не нужно трогать. Оно ни чего не изменит. Это управляющее сообщение для выбора параметров текста/цвета в EDIT.

[hexor_boo]

Сообщение от macomics

Для WM_COMMAND надо дополнительно смотреть на wPar, там уточняющее значение.

WM_CTLCOLOREDIT - это не нужно трогать. Оно ни чего не изменит. Это управляющее сообщение для выбора параметров текста/цвета в EDIT.

WM_CTLCOLOREDIT - я так и понял.
WM_COMMAND - уточняющее только в wParam? а lParam? И где можно поглядеть значения/имена констант для уточняющих элементов?

[macomics]

в lParam обычно уже находится параметр зависящий от значения в wParam

https://learn.microsoft.com/en-Us/wi...urc/wm-command

Далее находите тип окна, которое у вас присутствует. Я так понял у вас EDIT

https://learn.microsoft.com/en-us/wi.../edit-controls

[hexor_boo]

Рабочее решение:

procedure TForm_Debug.edTextKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
Var
 strBuffer    : String;
 strCRLF      : String;
 strSeparator : String;
 strResult    : String;
begin
 //V=86
 If (ssCtrl In Shift) And (Key=86) Then
  Begin
   Key:=0;
   strBuffer:=Clipboard.AsText;
   strCRLF:=#13#10;
   strSeparator:=', ';
   strBuffer:=Trim(strBuffer);
   strResult:=ReplaceStr(strBuffer, strCRLF, strSeparator);
   edText.Text:=strResult;
  End;
end;

procedure TForm_Debug.edTextKeyPress(Sender: TObject; var Key: Char);
begin
 If (Ord(Key)=22) Then
  Key:=Chr(0);
end;

procedure TForm_Debug.edTextKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 If (ssCtrl In Shift) And (Key=86) Then
  Key:=0;
end;

Здесь строка в буфере обмена остается неизменной - просто перед вставкой в TcxTextEdit она проходит обработку.

[macomics]

Еще добавьте проверку того, что вы вставляете в TcxTextEdit

if Clipboard.HasFormat(CF_TEXT) then