Question

delphi中的edit的焦点问题

请问 我想在Paintbox中的线条上点一点，将其很坐标X的值作为edit1的内容，然后再点一点，将很坐标的值作为edit2的内容。请问这里要移动焦点吧？请给出代码，小弟不甚感激！

Answer 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;

没大看明白。