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 then
begin
sendmessage(dbgrid1.handle,wm_keydown,vk_up,0);
end;
endelse
begin
if dbgrid.focused then
sendmessage(dbgrid1.handle,wm_keydown,vk_down,0);
end;
handled:= true;
end;
end;
Delphi 7 中DBGrid的排序。
procedure tfrmtracereport.dbgrid1titleclick column tcolumn var sortfield,fieldtitle string begin sortfield column.field.fieldname fieldtitle column.ti...
在Delphi的DBGrid中插入其他可視元件
delphi提供了功能強大的 dbgrid元件,以方便進行資料庫應用程式設計。但是如果我們僅僅利用dbgrid元件,每乙個獲得焦點 grid 只是乙個簡單的文字編輯框,不方便使用者輸入資料。delphi也提供了一些其他資料元件來方便使用者輸入,比如dbcombobox,dbcheckbox等元件,但...
在Delphi的DBGrid中插入其他可視元件
delphi提供了功能強大的 dbgrid元件,以方便進行資料庫應用程式設計。但是如果我們僅僅利用dbgrid元件,每乙個獲得焦點 grid 只是乙個簡單的文字編輯框,不方便使用者輸入資料。delphi也提供了一些其他資料元件來方便使用者輸入,比如dbcombobox,dbcheckbox等元件,但...