改善直线绘图：追逐起点

[mazhichao84]

程序代码：
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool Drawing;
TPoint Origin;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Drawing=true;
Canvas->MoveTo(X,Y);
Origin=Piont(X,Y);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{ Canvas->MoveTo(Origin.x,Origin.y);
Canvas->LineTo(X,Y);
Drawing=false;

}
//---------------------------------------------------------------------------
错误提示：
[C++ Error] Unit1.cpp(25): E2268 Call to undefined function 'Piont'
[C++ Error] Unit1.cpp(25): E2034 Cannot convert 'int' to 'TPoint'

[周药师]

//Origin=Piont(X,Y);
//改成这样：
Origin = TPoint(X,Y);

[mazhichao84]

还是行啊
一样的错误提醒

[YeBinYe]

Origin->X=X;
Origin->Y=Y;

[YeBinYe]

应该是：
Origin.X=X;
Origin.Y=Y;

[周药师]

[Quote=引用 2 楼 mazhichao84 的回复:]
还是行啊
一样的错误提醒
[/Quote]

你按照我说的改了吗？
下面测试正常的：

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool Drawing;   
TPoint Origin;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    Drawing=true;
    Canvas->MoveTo(X,Y);
    Origin=TPoint(X,Y); //修改成这样
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
   Canvas->MoveTo(Origin.x,Origin.y);
   Canvas->LineTo(X,Y);
   Drawing=false;
}
//---------------------------------------------------------------------------

[周药师]

Origin=Piont(X,Y);
//改成这样：
Origin = TPoint(X,Y);
注意红色部分 你写反了

[mazhichao84]

哦
不好意思，
没注意
谢谢啦