delphi-xe2 - 是否可以对 TCombo 编辑插入符号 'wider' 或 'bold' 呢？

Question

我有一个使用 TComboBox.SelStart 的模式指示编辑文本字符串的进度。在这种模式下，我想对编辑插入符号进行某种更改，例如将其加宽到 2 像素或以某种方式将其“加粗”以指示这种模式并使其引起更多关注。这可能吗？

Answer 1

是的，正如 Alex 在评论中提到的，这可以使用 API 调用来完成。示例:

procedure SetComboCaretWidth(ComboBox: TComboBox; Multiplier: Integer);
var
  EditWnd: HWND;
  EditRect: TRect;
begin
  ComboBox.SetFocus;
  ComboBox.SelStart := -1;
  Assert(ComboBox.Style = csDropDown);

  EditWnd := GetWindow(ComboBox.Handle, GW_CHILD);
  SendMessage(EditWnd, EM_GETRECT, 0, LPARAM(@EditRect));
  CreateCaret(EditWnd, 0,
              GetSystemMetrics(SM_CXBORDER) * Multiplier, EditRect.Height);
  ShowCaret(EditWnd);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetComboCaretWidth(ComboBox1, 4); // bold caret
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SetComboCaretWidth(ComboBox1, 1); // default caret
end;