procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
?Y: Integer);
begin
?//清空画布
?Canvas.FillRect(Canvas.ClipRect);
// self.Canvas.Refresh;
?self.Canvas.Pen.Color:=clred;
?self.Canvas.Rectangle(x-50,y-50,x 60,y 80);
end;
要使用鼠标右键单击事件写代码
答：的意思是找不到指定的文件，你确定你的文件路径正确吗？ 另外，调用的部分你用 n(shcmd)试试详情>>
