hongan007
04-09-2010, 16:06
Procedure Vevat(x,y:integer);
Var Image1: TImage;
Begin
Image1.Canvas.Pen.Color:= clRed;
Image1.Canvas.Brush.Color:= clRed;
Image1.Canvas.Ellipse(x-10,y-10,x+10,y+10);
End;
Một chương trình con dùng để vẽ ... khi bấm F9 thì vẫn chạy bt` cho tới khi gọi chương trình con đó ra thì nó báo lỗi ...
http://img442.imageshack.us/img442/6008/delphi.jpg
Cho mình hỏi là tại sao và cách khắc phục :D Thanks các bạn nhiều.
Var Image1: TImage;
Begin
Image1.Canvas.Pen.Color:= clRed;
Image1.Canvas.Brush.Color:= clRed;
Image1.Canvas.Ellipse(x-10,y-10,x+10,y+10);
End;
Một chương trình con dùng để vẽ ... khi bấm F9 thì vẫn chạy bt` cho tới khi gọi chương trình con đó ra thì nó báo lỗi ...
http://img442.imageshack.us/img442/6008/delphi.jpg
Cho mình hỏi là tại sao và cách khắc phục :D Thanks các bạn nhiều.