爱问知识人 爱问教育 医院库

delphi怎样编程,实现鼠标左键点击窗体不放,斜着拖动,怎么画多个矩形呢?同时消除拖动下多余的矩形。

首页

delphi怎样编程,实现鼠标左键点击窗体不放,斜着拖动,怎么画多个矩形呢?同时消除拖动下多余的矩形。


        

提交回答

全部答案

    2018-04-08 06:05:50
  • 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;

    没***

    2018-04-08 06:05:50

  • 2018-04-08 06:05:50
  • 要使用鼠标右键单击事件写代码

    不***

    2018-04-08 06:05:50

类似问题

换一换
  • 其他编程语言 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 171-190
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):