zoukankan      html  css  js  c++  java
  • Delphi 其他常用事件类型(TMouseEvent 、TMouseMoveEvent 、TKeyEvent 、TKeyPressEvent 、TDragOverEvent 、TDragDropEvent 、TStartDragEvent 、TEndDragEvent 、TDockDropEvent 、TDockOverEvent ...)

    Delphi 其他常用事件类型(TMouseEvent 、TMouseMoveEvent 、TKeyEvent 、TKeyPressEvent 、TDragOverEvent 、TDragDropEvent 、TStartDragEvent 、TEndDragEvent 、TDockDropEvent 、TDockOverEvent ...)

      TMouseEvent = procedure(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object;  //鼠标事件
      TMouseMoveEvent = procedure(Sender: TObject; Shift: TShiftState; X, Y: Integer) of object; //鼠标移动时间
      TKeyEvent = procedure(Sender: TObject; var Key: Word; Shift: TShiftState) of object;
      TKeyPressEvent = procedure(Sender: TObject; var Key: Char) of object;
      TDragOverEvent = procedure(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean) of object;
      TDragDropEvent = procedure(Sender, Source: TObject; X, Y: Integer) of object;
      TStartDragEvent = procedure(Sender: TObject; var DragObject: TDragObject) of object;
      TEndDragEvent = procedure(Sender, Target: TObject; X, Y: Integer) of object;
      TDockDropEvent = procedure(Sender: TObject; Source: TDragDockObject; X, Y: Integer) of object;
      TDockOverEvent = procedure(Sender: TObject; Source: TDragDockObject; X, Y: Integer; State: TDragState; var Accept: Boolean) of object;
      TUnDockEvent = procedure(Sender: TObject; Client: TControl; NewTarget: TWinControl; var Allow: Boolean) of object;
      TStartDockEvent = procedure(Sender: TObject; var DragObject: TDragDockObject) of object;
      TGetSiteInfoEvent = procedure(Sender: TObject; DockClient: TControl; var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean) of object;
      TCanResizeEvent = procedure(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean) of object;
      TConstrainedResizeEvent = procedure(Sender: TObject; var MinWidth, MinHeight, MaxWidth, MaxHeight: Integer) of object;
      TMouseWheelEvent = procedure(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean) of object;
      TMouseWheelUpDownEvent = procedure(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean) of object;
      TContextPopupEvent = procedure(Sender: TObject; MousePos: TPoint; var Handled: Boolean) of object;
    

      

    创建时间:2021.06.08  更新时间:

      

    博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你所有帮助,谢谢!
  • 相关阅读:
    block、inline、inline-block
    js 的复制和引用 (传值和传址)
    俄罗斯方块和作品集
    js 连续赋值。。理解不了,先占坑
    8.7 jquery-dom manipulation
    08.04 对象构造方法
    对象的基本操作
    08.03 js _oop
    08.02 对象
    The 'Microsoft.ACE.OLEDB.12.0' provider is not registered on the local machine.
  • 原文地址:https://www.cnblogs.com/guorongtao/p/14861390.html
Copyright © 2011-2022 走看看