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

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

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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　　更新时间：