做网站前期框架图/百度写作助手

//声明:
MoveToEx(DC: HDC;         {设备环境句柄}p2, p3: Integer; {坐标}p4: PPoint       {用于保存 p2、p3 值的 TPoint 结构的指针}
): BOOL;LineTo(DC: HDC;      {设备环境句柄}X, Y: Integer {直线终点坐标}
): BOOL;//举例:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)procedure FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);procedure FormMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);end;varForm1: TForm1;implementation{$R *.dfm}varflag: Boolean;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
beginMoveToEx(Canvas.Handle, X, Y, nil);flag := True;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
beginif flag then LineTo(Canvas.Handle, X, Y);
end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
beginflag := False;
end;end.//效果图:

---