如何去掉TDBgrid右邊的滾動條,謝謝 |
尚未結案
|
zhczm
一般會員 ![]() ![]() 發表:66 回覆:15 積分:16 註冊:2003-06-23 發送簡訊給我 |
|
hagar
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
參考: http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=12604
unit Newgrid; interface uses WinTypes, WinProcs, Classes, DBGrids; type TNoVertScrollDBGrid = class(TDBGrid) protected procedure Paint; override; end; procedure Register; implementation procedure TNoVertScrollDBGrid.Paint; begin SetScrollRange(Self.Handle, SB_VERT, 0, 0, False); inherited Paint; end; procedure Register; begin RegisterComponents('Data Controls', [TNoVertScrollDBGrid]); end;或參考 Justmade 大大的這篇大作, 如果不想用做成元件的方式的話. http://delphi.ktop.com.tw/topic.php?TOPIC_ID=33755 --- 歡迎光臨 KTop 研究院 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |