如何实现类似网页搜索栏效果的TMemo控件？

下面是针对Delphi中TMemo控件实现浏览器搜索栏风格提示效果的具体方案，包含光标定位、提示文本自动切换的核心逻辑：

1. 状态变量定义 #

在窗体类的私有区域添加变量，用于管理提示文本的显示状态：

private
  FIsShowingHint: Boolean; // 标记当前是否显示提示文本
  FSearchHint: string;     // 存储提示文本内容

2. 初始化设置 #

在窗体创建时完成提示文本的初始渲染：

procedure TYourForm.FormCreate(Sender: TObject);
begin
  FSearchHint := '输入搜索内容或网址';
  FIsShowingHint := True;
  // 加载提示文本并设置区分样式
  Memo1.Text := FSearchHint;
  Memo1.Font.Color := clGray;
  // 可选：将TMemo改为单行模式，更贴近搜索栏形态
  Memo1.ScrollBars := ssNone;
  Memo1.WordWrap := False;
  Memo1.MaxLength := 255; // 按需限制输入长度
end;

3. 焦点进入事件处理（OnEnter） #

当TMemo获得焦点时，自动切换到用户输入状态：

procedure TYourForm.Memo1Enter(Sender: TObject);
begin
  if FIsShowingHint then
  begin
    Memo1.Clear;
    Memo1.Font.Color := clWindowText; // 恢复默认文本颜色
    FIsShowingHint := False;
    Memo1.SelStart := 0; // 光标直接移至开头
  end;
end;

4. 焦点离开事件处理（OnExit） #

失去焦点且无输入内容时，重新显示提示文本：

procedure TYourForm.Memo1Exit(Sender: TObject);
begin
  if Trim(Memo1.Text) = '' then
  begin
    FIsShowingHint := True;
    Memo1.Text := FSearchHint;
    Memo1.Font.Color := clGray;
  end;
end;

5. 文本变更事件处理（OnChange） #

确保用户输入过程中状态正确，避免提示文本干扰：

procedure TYourForm.Memo1Change(Sender: TObject);
begin
  // 用户开始输入时自动切换为非提示状态
  if FIsShowingHint then
  begin
    FIsShowingHint := False;
    Memo1.Font.Color := clWindowText;
  end;
end;

额外优化建议 #

• 若要和主流浏览器保持一致，焦点在TMemo内时，即使文本清空也不显示提示；若需要实时显示提示，可在OnChange事件中补充判断逻辑。
• 可给提示文本设置斜体样式，进一步区分用户输入内容。

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