DELPHI視窗支援滑鼠中鍵滾動

在formmousewheel新增事件就可以了：

123

4

procedure tform1.

formmousewheel
(sender:
tobject; shift:tshiftstate;wheeldelta:
integer; mousepos: tpoint;
var handled:
boolean)
;begin
vertscrollbar.
position
:= vertscrollbar.
position
-wheeldelta ;
//如果你想要速度慢點的話用vertscrollbar.position -(wheeldelta div 10)
end;

procedure tform1.formmousewheel(sender: tobject; shift:tshiftstate;wheeldelta: integer; mousepos: tpoint; var handled:boolean);

begin
vertscrollbar.position:= vertscrollbar.position -wheeldelta ;//如果你想要速度慢點的話用vertscrollbar.position -(wheeldelta div 10)
end;

DELPHI中的視窗管理

先思考乙個問題，為什麼每個delphi程式 泛指乙個exe 都會在工作列上有乙個類似button的東西呢？這是因為有了視窗才會有這個東東出現。那什麼樣的視窗可以會在工作列出現button東東呢？讓我們進入delphi源 吧！由於視窗具有ws popup特性，且最主要的是，在createwindow時...

Qt 支援滑鼠拖動來移動內容的視窗

最近有個qt的專案碰到問題，問題是這樣的 要使qt的視窗內容支援drag移動，即按住滑鼠左鍵在視窗裡移動時，視窗的滾動條和內容隨著滑鼠的移動而移動。實現的方法實現乙個類，此類派生自qscrollarea，安裝事件過濾器，對滑鼠的事件進行處理來實現內容的移動。如下 標頭檔案 include class...

delphi中的DBGRid滑鼠滾動事件

procedure onmousewheel var msg tmsg var handled boolean begin if msg.message wm mousewheel then begin if msg.wparam 0 then begin if dbgrid.focused the...