如何使用橡皮筋的方式画一个矩形,最好有源码?? 我如何使用橡皮筋的方式在一块画布上画一个矩形,需要源码?谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我刚写的,乱七八糟的,仅供参考var Form1: TForm1; ptStart: TPoint; b_mousedown: Boolean = false; PreRect: TRect;implementation{$R *.dfm}procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin b_mousedown := true; ptStart.X := X; ptStart.Y := Y;end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin if b_mousedown then begin Canvas.Pen.Color := clWhite; Canvas.Rectangle(PreRect); Canvas.Pen.Color := clBlue; Canvas.Pen.Style := psDot; Canvas.Rectangle(ptStart.X, ptStart.Y, X, Y); PreRect.TopLeft := ptStart; PreRect.BottomRight.X := X; PreRect.BottomRight.Y := Y; end;end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin b_mousedown := false; Canvas.Pen.Color := clBlack; Canvas.Pen.Style := psSolid; Canvas.Rectangle(PreRect); SetRectEmpty(PreRect);end;procedure TForm1.FormPaint(Sender: TObject);begin Canvas.Brush.Color := clWhite; Canvas.Rectangle(0, 0, WIDTH, HEIGHT);end;end. 共享一套老版本的天心ERP源码下载地址 [DBNMPNTW]ConnetionOpen(CreateFile()) 控件的问题,不知道该怎么描述,高手进来。 DBGrid的格線能不能画成双線或格線加粗?(UP有分) QUICKREPORT中有自動換行的MEMO嗎? 如何判断用户输入的TextEdit中的内容只包含中文。(即用户姓名中不能包含英文字母和数字) 请教一个线程问题,很简单,读取串口数据,共100分! 关于汉化DevExpress 党政内网进入后台开外网端口 初学delphi求指教 高分求表格显示的解决方案,若有好的再加100分!! 一个关于ActiveX的传出参数的问题
Form1: TForm1;
ptStart: TPoint;
b_mousedown: Boolean = false;
PreRect: TRect;implementation{$R *.dfm}procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
b_mousedown := true;
ptStart.X := X;
ptStart.Y := Y;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if b_mousedown then
begin
Canvas.Pen.Color := clWhite;
Canvas.Rectangle(PreRect);
Canvas.Pen.Color := clBlue;
Canvas.Pen.Style := psDot;
Canvas.Rectangle(ptStart.X, ptStart.Y, X, Y);
PreRect.TopLeft := ptStart;
PreRect.BottomRight.X := X;
PreRect.BottomRight.Y := Y;
end;
end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
b_mousedown := false;
Canvas.Pen.Color := clBlack;
Canvas.Pen.Style := psSolid;
Canvas.Rectangle(PreRect);
SetRectEmpty(PreRect);
end;procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Brush.Color := clWhite;
Canvas.Rectangle(0, 0, WIDTH, HEIGHT);
end;end.