UC知道delphi学习中的问题,帮我解决一下
来源：百度知道 编辑：UC知道 时间：2024/06/08 10:42:36
procedure TForm1.button1click(sender:TObject);
var points:Tpoint;
begin
points.x:=200;
points.y:=400;
FindDialog1.findtext:=Edit1.text;
FindDialog1.position:=point(RichEdit1.Left+RichEdit1.width,
RichEdit1.top);
FindDialog1.position:=points;
FindDialog1.execute;
end;
为什么这里设置了2个position啊,多此一举吗?是不是只显示后一个啊
悬赏分弄错了,大家可一定要解释好啊.本来想悬赏20分的 结果成了80
var points:Tpoint;
begin
points.x:=200;
points.y:=400;
FindDialog1.findtext:=Edit1.text;
FindDialog1.position:=point(RichEdit1.Left+RichEdit1.width,
RichEdit1.top);
FindDialog1.position:=points;
FindDialog1.execute;
end;
为什么这里设置了2个position啊,多此一举吗?是不是只显示后一个啊
悬赏分弄错了,大家可一定要解释好啊.本来想悬赏20分的 结果成了80
确实是多此一举。两句都执行了，但是后面那句后执行，所以就只显示后面一句。
FindDialog1.position:=point(RichEdit1.Left+RichEdit1.width, RichEdit1.top);//查找对话框出现在RichEdit1的右边，且与顶部对齐。
FindDialog1.position:=points;//出现在屏幕的的这个坐标(200,400)。