大 大福星 Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-25 #1 例如我用Canvas.Rectangle作一个矩形。怎样才能确定form上两点的坐标呢?
卷 卷起千堆雪tyn Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-25 #2 procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Edit1.Text :=IntToStr(x); Edit2.Text :=IntToStr; end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Edit1.Text :=IntToStr(x); Edit2.Text :=IntToStr; end;