delphi中的edit的焦点问题
请问我想在Paintbox中的线条上点一点，将其很坐标X的值作为edit1的内容，然后再点一点，将很坐标的值作为edit2的内容。请问这里要移动焦点吧？请给出代码，小弟不...
请问 我想在Paintbox中的线条上点一点，将其很坐标X的值作为edit1的内容，然后再点一点，将很坐标的值作为edit2的内容。请问这里要移动焦点吧？请给出代码，小弟不甚感激！
展开
1个回答
展开全部
procedure TFormListPerson.PaintBox1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Edit1.Text:=Edit2.Text;
Edit2.Text:=Format('%d,%d',[X,Y]);
end;
没大看明白。
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Edit1.Text:=Edit2.Text;
Edit2.Text:=Format('%d,%d',[X,Y]);
end;
没大看明白。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
七鑫易维信息技术
2024-09-02 广告
Play Video 七鑫易维是致力于机器视觉和人工智能领域的高新科技企业，迄今已专注眼球追踪技术的研发、创新与应用超过14年，拥有完全自主知识产权，全球专利总量655余项。 作为眼球追踪技术领域的全球知名品牌，七鑫易维的产品体系覆盖眼动分...
点击进入详情页
本回答由七鑫易维信息技术提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
