2019年7月11日 星期四

遞迴處理Controls範例

procedure ButtonClick(Sender: TObject);
  procedure pr_Controls(const Parent: TWinControl) ;
  var
    i: Integer;
  begin
    for i := 0 to Parent.ControlCount - 1 do
    begin
      if Parent.Controls[i] is TWinControl then
      begin
        if Parent.Controls[i] is TLabel then
        begin
          ...
          ...
        end;
        pr_Controls(TWinControl(Parent.Controls[i])) ;
      end;
    end;
  end;
begin
  pr_Controls(Panel1) ;
end;

2019年7月8日 星期一

Delphi]讓Windows捲軸捲動時,資料內容同時跟著平滑捲動。

讓Windows捲軸捲動時,資料內容同時跟著平滑捲動。

出處:

http://delphi.ktop.com.tw/board.php?cid=168&fid=918&tid=100386

http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=70761


  TDBGrid = Class(DBGrids.TDBGrid)
  Protected
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
  end;
 
  TForm1 = class(TForm)
    ....
  ...
procedure TDBGrid.WMVScroll(var Message: TWMVScroll);
begin
  if Message.ScrollCode = SB_THUMBTRACK then
    Message.ScrollCode := SB_THUMBPOSITION;
  inherited;
end;

轉貼至:https://fireflybug.pixnet.net/blog/post/51053914-[delphi]讓windows捲軸捲動時,資料內容同時跟著

2019年7月2日 星期二

操作ADO JET OleDB 開啟Excel Table產生"從外部資料庫驅動程式產生的非預期的錯誤"的訊息

操作ADO JET OleDB 開啟Excel Table產生"從外部資料庫驅動程式產生的非預期的錯誤"的訊息。
排除方式:
  移除Windows Update KB4041681KB4041678KB4041691 即可

參考:https://blog.xuite.net/maxsanta/twblog/539458148-今天突然有出現+執行階段錯誤'-2147467259+從外部資料庫驅動程式產生的非預期的錯誤(1)+的訊息