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;没大看明白。
