其他

delphi TStringList的用法 TStrings是一個抽象類別，在實際開發中，是除了基本類型外，應用得最多的。常規的用法大家都知道，現在來討論它的一些進階的用法。先把要討論的幾個屬性列出來：1、CommaText2、Delimiter & DelimitedText3、Names & Values & ValueFromIndex先看第一個：CommaText。怎麼用呢？用代碼說話：constconstr :String = 'aaa,bbb,ccc,ddd'

unit Uchildform;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Menus, StdCtrls, ComCtrls;type  TChildForm = class(TForm)    MainMenu1: TMainMenu;    Nedit: TMenuItem;    No: TMenuItem;    Nnudo:

題記：在利用開源軟體Squid建立公司的Proxy 伺服器（也作過濾應用程式層資料）時，遇到一個非常棘手的問題：當使用者開啟的是未經授權的頁面時，Squid會返回一個錯誤的頁面給Client，仔細觀察這

unit Umainform;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ComCtrls, ToolWin, Menus, ImgList, StdCtrls,Uchildform;type  TMainForm1 = class(TForm)    MainMenu1: TMainMenu;    Nfile: TMenuItem;   

　　這是以前寫的代碼，自繪XP風格的菜單，硬碟壞了後以為沒了，最後寫的一個軟體要自訂風格，“翻箱倒櫃”的終於在我可愛的古董機^_^上找到了一個應用的例子。還是把它放到Blog上來，即可共用又可作為備用

該控制項來源於Xtreme Toolkit,我對其進行了修改，使其不依賴於類庫獨立存在，由於我沒有運用XT的其他類，可能你會覺得它沒有在類庫中的華麗，但相對於其小巧的體格而言，已經很難得了。源檔案包括兩個標頭檔，兩個執行檔案：XTMemDC.h，XTMemDC.cpp,XTOutBarCtrl.h,XTOutBarCtrl.cpp.其中XTMemDC是一個CDC繼承類，用於協助工具功能。該控制項的使用方法： 1、用mfc sdi

ACCESS SQL文法參考一. 基礎概念可以使用的資料類型如下：1.      TEXT：文本型（指定長度時），備忘型（不指定長度時）；2.      CHAR，NCHAR，VARCHAR，NVARCHAR：文本型，可以指定長度，否則預設值為255！3.      BYTE，TINYINT：數字-位元組，不要指定長度和精度，否則會報錯！4.      SMALLINT，SHORT：數字-整型，不要指定長度和精度，否則會報錯！5.     

　編寫Delphi應用程式時，經常會遇到一些ActiveX控制項[註：副檔名為OCX的控制項或DLL的類型庫]，它們為應用程式的開發提供了簡單的操作途徑。然而，這些程式在發布的同時，面臨ActiveX控制項註冊問題。　　解決途徑：一、用安裝程式製作打包檔案，往往會給增加程式本身的大小，系統重裝時，則必須重新安裝它；二、用程式本身進行代碼編寫函數的形式處理它。　　使用方法分為兩種：　　一、直接把可視化的ActiveX控制項放到程式中；　　二、運行時根據需要即時建立。　　如果是直接使用，則應用程式在

uses mshtml,activex; function TForm1.wr(b: Twebbrowser; s: string): bool; var d: IHTMLDocument2; a: Variant; begin b.Navigate('about:blank'); try d:=b.document as IHTMLDocument2; a := VarArrayCreate([0,0],varVariant); a[0] := s;

var  frm: TForm2;//定義視窗類別begin  PageControl1.activepage:=tabsheet1;  if Panel1.ControlCount = 0 then begin    frm := Tform2.Create(self);    frm.Parent := Panel1;    frm.BorderStyle := bsnone;    frm.WindowState := wsmaximized;    if

DbGrid的OnDrawColumnCell事件 如你現在有一個ADOTable1,一個DbGrid1,假如你資料庫裡面的列名分別是(序號,名字,年齡),你要將年齡為23的格填充背景色為黑色,字型顏色改為白色,代碼如下: procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

combobox 不是Sorted:=True; 這樣就可以了嗎??listview : sorttype :=stText 就會自動排序menu 排序，可暗中用listbox 排序，再更新menu內容 找一下delphi的help "OnColumnClick" 就有example 了var ColumnToSort: Integer;procedure TForm1.ListView1ColumnClick(Sender: TObject; Column:

以下代碼以游標所在位置為中心,在全螢幕上繪製一個十字架:procedure TForm1.Button1Click(Sender: TObject);var     FullscreenCanvas:TCanvas;    DC:HDC;begin    DC:=GetDC(0);//取得螢幕的DC，參數0指的是螢幕    FullscreenCanvas := TCanvas.Create;//建立一個CANVAS對象    FullscreenCanvas.Handle := DC;   /

　　"一個優秀的Delphi程式員，不僅要會寫控制項，還要會使用控制項。"　　我還是一個半瓢水的程式員，因此目前為止我所能努力達到的境界是:　　一個半瓢水的程式員，管他會不會寫控制項，只要能拿來改就可以了。　　使用過Delphi的朋友都知道，我們在設計Delphi應用程式的某一功能時總是希望能夠有現成的第三方免費控制項可以拿來使用。但實際情況往往是，網上的控制項確實種類繁多，優秀作品也數不勝數，但真正完全能夠符合設計者具體要求的控制項卻很少。究其原因，不外乎以下幾條　　1、國人開發的應用程式大多

//關聯tabset+nodebookprocedure TForm1.FormCreate(Sender: TObject);begin  ts1.Tabs := nb1.Pages;end;//tabset對nodebook進行切換procedure TForm1.ts1Click(Sender: TObject);begin  nb1.PageIndex := ts1.TabIndex;end;  //刪除當前tabset和nodebookprocedure

procedure TForm1.FormCreate(Sender: TObject);var  IniFile: TIniFile;begin  IniFile:=TIniFile.Create(ExtractFilePath(paramstr(0))+'Test.ini');  try    if not FileExists(ExtractFilePath(paramstr(0))+'Test.ini') then    begin      IniFile.WriteInteger('

　　初學DelphiI的人，由於各種原因，對DelphiI中的許多概念不能很好的理解，並由此帶來了許多的問題，或者是開發出的程式穩性不好，一會能運行，一會又不能運行；或者是遇到一個問題久思不得其解，還誤以為是DelphiI自身的BUG，等等這些，浪費了我們大量的時間、精力，也影響了我們的開發效率。　　那麼如何才能避免這些錯誤了，盡量少走彎路了？筆者從事DelphiI開發多年，下面就把我的經驗總結介紹給大家，希望協助到初學DelphiI的朋友。　　問題一：對類的概念理解不到位，程式開發中不能靈活運

 　　在微軟軟體帝國的呐喊聲中，VB.net和VC#.net在短時間內擁有了一大批FANS。能在開發工具領域和微軟一決高下的Borland公司也不甘示弱把Delphi“打扮”的漂漂亮亮的，讓我們這些堅定的D迷依舊信心滿滿，堅守這塊陣地。一些對Pascal文法情有獨鐘或對VCL愛慕非凡的新生力量也加入了我們陣營之中，新加入的同志大多以開發資料庫類的軟體做為初始的一步，這樣對“資料感知”控制項瞭解成為了必須，這其中最經常用到的要屬DBGrid。雖然原生的DBGrid功能已經非常強大，但在實際開發工作

 unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    Button3: TButton;    Button4: TButton;    procedure

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls, ExtCtrls, ComCtrls;type  TForm1 = class(TForm)    TreeView1: TTreeView;    Panel1: TPanel;