我是初学者，按照书上的代码 但是我做出来的效果不一样  书上的可以在画布上写字  我做出来只能画直线呢？

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
firstx,firsty:integer;
drawflag:boolean;
begin
//记录第一点坐标
firstx:=x;
firsty:=y;
//进入画图状态
drawflag:=true;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
drawflag:boolean;
firstx,firsty:integer;
begin
if drawflag then
begin
//由第一点画出一条直线
canvas.MoveTo(firstx,firsty);
canvas.LineTo(x,y);
//改变第一点坐标
firstx:=x;
firsty:=y;
end;
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
drawflag: boolean;

維持狀態的變數,要宣告在函式之外

[code delphi]
var
firstx, firsty: Integer;
drawflag: Boolean;

implementation
.
.
.
[/code]


你可以參考這一篇:
http://delphi.ktop.com.tw/board.php?cid=30&fid=74&tid=92960

編輯記錄

谢谢你 我明白了  这个论坛很多好心人 

編輯記錄