原创 Delphi 10.1 Berlin下TStringGrid單元格樣式設定
設定TStringGrid的DefaultDraw = true，系統自動給表格繪製默認的樣式和效果。設定自定義格式前，先填充單元格的背景色，以清除
2020-02-22 10:49:37
1
原创 TScrollBox響應鼠標滾動事件
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handle
2020-02-22 10:49:36
原创 Delphi屏蔽TRadioButton的OnClick事件
procedure TForm1.Button6Click(Sender: TObject); var Save: TNotifyEvent; begin Save:= RadioButton2.OnClick; Radio
2020-02-22 10:49:36
原创 用webBrowser打開網頁出現腳本錯誤怎麼辦？
把Slient屬性設爲True就不會彈出腳本錯誤的信息了。 轉自：http://bbs.csdn.net/topics/390351223 點贊 收藏 分享 文章舉報 h
2020-02-22 10:49:36
原创 HTML Color To Delphi TColor
HTML Color 採用十六進制表示顏色，其格式爲RGB，而Tcolor的格式是GBR。如果把HTML顏色轉爲Tcolor，需要轉換其格式。 比如： HTML Color： #123456 轉爲Tcolor，則爲：$563412
2020-02-22 10:49:36
4
原创 獲取文件MD5值
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Math, System.Hash, System.Varia
2020-02-22 10:49:36
原创 FDAC批量導入數據
FDAC DataSet使用SaveToFile方法把數據存入單個文件後，使用批量處理插件，能夠快速導入數據。在國外論壇上看到一篇文章，導入很方便。
2020-02-22 10:49:36
11
原创 FMX TStringGrid的Cell對齊方式
Delphi Berlin版本中，Column具有Model屬性。 procedure TMainForm.CheckRecordGridDrawColumnCell(Sender: TObject; const Canvas: TCa
2020-02-22 10:49:36
原创 Delphi FMX Grid列頭樣式設定
procedure TForm1.StringGrid1ApplyStyleLookup(Sender: TObject); var Header: THeader; HeaderItem: THeaderItem; I: I
2020-02-22 10:49:36
原创 Jquery 滾動條到底部
var nScrollHight = 0; //滾動距離總長(注意不是滾動條的長度) var nScrollTop = 0; //滾動到的當前位置 var nD
2019-01-16 21:26:01
原创 Ajax等待界面美化和div永遠屏幕居中顯示
JQuery得Ajax提交數據時，爲了加強界面效果，通常會添加一個等待畫面。 CSS： /* Ajax等待效果 */ .loading{ position: absolute; /* top:50%;
2018-09-03 10:14:50
原创 Access幾個小技巧總結
1、查詢Access中的表名稱 select name from MSysObjects where type=1 and flags=0 MSysObjects2、幾個查詢結果Union All時，當使用了無表查詢時，提示“查詢輸入必須
2018-09-03 10:14:41
1
原创 delphi 顯示多個swf文件
當Delphi使用TPageControl顯示多個swf文件時，如果對TShockwaveFlash採用默認值的情況下，會發現不能顯示的問題，經查閱資料，發現其屬性seamlesstabbing默認值爲true，當把其改爲false，則顯
2018-09-03 10:09:08
3
原创 Delphi檢測字符串中是否包含漢字
procedure TMainForm.Button1Click( Sender : TObject ); var str : string; pStr : PWideChar; isHZ :
2018-09-03 10:09:08
原创 SQL語句匹配查詢
-- 僅查詢純數字 匹配查詢 -- 僅sql有效 select (cast(spxx.id as int)) from spxx,lb where spxx.lbid=lb.id an
2018-09-03 10:08:46