怎样编一个像画图那样的程序(200分)

比如说求当前鼠标的位置(相对.绝对)
手动画画等

鼠标的位置,mouse事件都有传递。
画画，直接用Canvas画就是了。
另外，做个浮动的工具条用来选笔，画刷，等等。

jghuang
可我不能拖动画笔画呀?

你可在MouseMove中响应鼠标拖动。

拖动事件确实没有，但可以用down,move,up拼起来。
举个最简单的例子吧.
var mouselbstate:boolean;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
begin
mouselbstate:=true;
canvas.MoveTo(x,y);
canvas.LineTo(x,y);
end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
mouselbstate:=false;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if mouselbstate then
canvas.LineTo(x,y);
end;

delphi里面有个简单的画图的例子
delphi3/demos/doc/graphex/

你可以到urus.163.net的[作品集]里栽
个chalk.zip电子粉笔，如果你觉得有
用，可以和我联系，我可以把源码给你

多人接受答案了。