delphi有沒有哪個功能像ASP.Net 中的TextBoxWatermark 功能一樣，在第一次點擊文字方塊(Editor) 時，可將預設的文字清除？

就像誠品書店的搜尋框一樣http://www.eslite.com/，當滑鼠點擊到搜尋框時，就清除預設文字，請知道的人回答一下，感恩。

====================================

感謝各位的協助，因為我的作業中要用到這樣的功能很多次，所以以物件的方式最適合，因此將分數給小傑克~非常感謝各位

編輯記錄

現成的不清楚...但是可以試試拿Edit 去改一下, 類似底下這樣的作法

TWatermarkEdit=class(TCustomEdit)
private
FirstTimeEnter:boolean;
procedure CMEnter(var Message: TCMGotFocus);message CM_ENTER;
public
constructor Create(AOwner: TComponent); override;
end;

procedure TWatermarkEdit.CMEnter(var Message: TCMGotFocus);
begin
if FirstTimeEnter then
begin
Text := '';
FirstTimeEnter := false;
end;
end;
constructor TWatermarkEdit.Create(AOwner: TComponent);
begin
inherited;
FirstTimeEnter := True;
end;

===================引 用 raiseofevil 文 章===================
delphi有沒有哪個功能像ASP.Net 中的TextBoxWatermark 功能一樣，在第一次點擊文字方塊(Editor) 時，可將預設的文字清除？

就像誠品書店的搜尋框一樣http://www.eslite.com/，當滑鼠點擊到搜尋框時，就清除預設文字，請知道的人回答一下，感恩。

------
額有朝天骨,眼中有靈光

假如想要簡單一點的話
可以用以下做法...
1. 先設好Edit1.Text的值
2. 在Edit1的ｃｌｉｃｋ中輸入以下程式：

[code delphi]
procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.Clear;
end;
[/code]

===================引 用 老大仔 文 章===================
假如想要簡單一點的話
可以用以下做法...
1. 先設好Edit1.Text的值
2. 在Edit1的ｃｌｉｃｋ中輸入以下程式：

[code delphi]
procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.Clear;
// 補充一下老大仔大大的解法
// 如果只有第一次 click 才清空, 那要加
edit1.o n c l i c k := nil;
end;
[/code]

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

提供給你我的做法

假設 Edit1.Text:= '請點擊本處輸入搜尋內容' ==> 這是預設值

在 Edit1.ｏｎｅｎｔｅｒ 的事件上寫
if Edit1.Text='請點擊本處輸入搜尋內容' then Edit1.Clear
這是最簡單的作法, 如果你還有考量其他因素, 可以再加強
用這樣的寫法是避免因為只下 Edit1.Clear 會清除我所寫入的文字

===================引 用 raiseofevil 文 章===================
delphi有沒有哪個功能像ASP.Net 中的TextBoxWatermark 功能一樣，在第一次點擊文字方塊(Editor) 時，可將預設的文字清除？

就像誠品書店的搜尋框一樣http://www.eslite.com/，當滑鼠點擊到搜尋框時，就清除預設文字，請知道的人回答一下，感恩。