Question

DELPHI 文本框 单击清空默认文字

DELPHI的文本框，有默认文字，如何当用户单击文本框时，自动情况默认文字，等待用户输入。

Answer 1

procedure TForm1.Edit1Click(Sender: TObject);
begin
if (Edit1.Text = '默认文字') then Edit1.Text := '';
end;

Answer 2

procedure TForm1.Edit1Click(Sender: TObject);
begin
self.Edit1.Text:='';
end;