C++Builder/Delphi中实现TButtonedEdit按钮点击显示不同提示

TButtonedEdit本身没有内置的直接切换按钮提示文本的功能，但可以通过手动处理事件轻松实现需求，以下分Delphi和C++Builder两种环境给出具体操作：

Delphi 实现步骤 #

• 基础配置
  在窗体上放置TButtonedEdit组件，设置右侧按钮的ImageIndex和PressedImageIndex，将组件的ShowHint属性设为True，并设置初始提示：

  ButtonedEdit1.RightButton.Hint := 'Copy to Clipboard';
  

• 处理按钮点击与提示切换

  1. 双击TButtonedEdit的RightButtonClick事件，在事件函数中完成复制操作并临时切换提示：

     procedure TForm1.ButtonedEdit1RightButtonClick(Sender: TObject);
     begin
       // 执行复制到剪贴板的逻辑
       Clipboard.AsText := ButtonedEdit1.Text;
       // 切换提示为反馈文本
       ButtonedEdit1.RightButton.Hint := 'Copied to Clipboard';
       // 启动定时器准备恢复默认提示
       Timer1.Enabled := True;
     end;
     

  2. 添加一个TTimer组件，设置Interval为2000（2秒，可按需调整），初始Enabled设为False，然后在其OnTimer事件中恢复默认提示：

     procedure TForm1.Timer1Timer(Sender: TObject);
     begin
       ButtonedEdit1.RightButton.Hint := 'Copy to Clipboard';
       Timer1.Enabled := False;
     end;
     

C++Builder 实现步骤 #

• 基础配置
  放置TButtonedEdit到窗体，配置右侧按钮的ImageIndex、PressedImageIndex，设置ShowHint = true，并设置初始提示：

  ButtonedEdit1->RightButton->Hint = L"Copy to Clipboard";
  

• 处理按钮点击与提示切换

  1. 处理RightButtonClick事件：

     void __fastcall TForm1::ButtonedEdit1RightButtonClick(TObject *Sender)
     {
       // 执行复制到剪贴板的逻辑
       Clipboard()->AsText = ButtonedEdit1->Text;
       // 切换提示为反馈文本
       ButtonedEdit1->RightButton->Hint = L"Copied to Clipboard";
       // 启动定时器准备恢复默认提示
       Timer1->Enabled = true;
     }
     

  2. 添加TTimer组件，设置Interval = 2000，Enabled = false，处理其OnTimer事件：

     void __fastcall TForm1::Timer1Timer(TObject *Sender)
     {
       ButtonedEdit1->RightButton->Hint = L"Copy to Clipboard";
       Timer1->Enabled = false;
     }
     

额外优化 #

如果希望切换提示后立即显示反馈文本，无需等待鼠标悬停，可以在切换提示的代码后调用：

• Delphi：Application.ActivateHint(ButtonedEdit1.RightButton.ClientRect);
• C++Builder：Application->ActivateHint(ButtonedEdit1->RightButton->ClientRect);

内容的提问来源于stack exchange，提问作者user3161924