想用一按钮单击，弹出查找对话框控件

Question

procedure .....
begin
....
end;
end.
其中 省略号的代码是怎么写？还有个问题 assign是什么属性？？

Answer 1

用FindDialog控件
 
if FindDialog1.Execute then
   begin
     //你的代码 
   end;

Answer 2

加入 
 FindDialog控件, 在 Dialog 页procedure .....
begin
    FindDialog1.Execute;
end;
end.
assign 中文意思是指派。A, B 同类对象
A.assign(B);那么， A拷贝B

Answer 3

procedure teditform.button1click(sender:  tobject);
begin
if fontdialog1.execute then
  .....
end;
end.比如我想查找‘HELLO’然后省略号中代码怎么写？谢谢！！

Answer 4

FindDialog1.findtext:='yourtext';
FindDialog1.Execute;