其他

用VC在IE瀏覽器的工具條上添加命令按鈕[ 2007-11-9 16:35:00 | By: 茹鵬新 ] 不知道讀者朋友注意到沒有，金山詞霸、網路螞蟻等應用軟體在電腦上安裝後會向IE瀏覽器的工具條添加自己的按鈕，使用者按下按鈕後IE會啟動對應的軟體，作出相應的動作。上述這種功能是如何?的呢？本執行個體介紹了一種實現方法，可以將自己應用程式的按鈕添加到IE的工具條中。 　　一、實現方法

建立有個性的對話方塊之MFC篇http://tech.163.com/　2006-07-05 10:50:36　來源: csdn　　網友評論0 條 論壇　想使自己的軟體與眾不同就要給軟體加點“色”，一個顏色搭配協調的視窗要比windows千篇一律的灰底黑字更能吸引別人的眼球。設想如果html瀏覽器顯示的網頁都是白底黑字，還會有那麼多的mm喜歡上網嗎？可能互連網的人氣將下降一半。做個出色的介面對於老手來說可能不在話下，但是對於新手來說還是無從下手，使用BCGControlBar和Xtreme

一測試預存程序CREATE PROCEDURE DelphiSql @age int AS beginselect * from person where nianling>@age;end;GO調用例子 通過ADOQUERY調用代碼procedure TForm1.btn1Click(Sender: TObject);var  listitem:TListItem ;beginwith qry1 dobegin  Close ;  SQL.Clear ;  SQL

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);    procedure FormDestroy(Sender: TObject);  private     CBBtnRect:

請問各位先進，有沒有辦法讓ListView列表中的checkbox在勾選狀態和取消勾選狀態分別執行兩個不同的函數呢？procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;    Shift: TShiftState; X, Y: Integer);var    Item: TListItem;begin    Item := ListView1.GetItemAt(X, Y);    if

procedure TForm1.FormCreate(Sender: TObject);var  listitem:TListItem ;begin  tlistview(lv1 ).Items.BeginUpdate;    try      tlistview(lv1 ).Items.Clear;      with qry1 do      begin      Close;      SQL.Clear ;      SQL.Add('select * from student'); 

虛擬鍵碼對照表 虛擬鍵碼 對應值 對應鍵VK_LBUTTON1滑鼠左鍵VK_RBUTTON2滑鼠右鍵VK_CANCEL3CancelVK_MBUTTON4滑鼠中鍵VK_XBUTTON15VK_XBUTTON26VK_BACK8BackspaceVK_TAB9TabVK_CLEAR12ClearVK_RETURN13EnterVK_SHIFT16ShiftVK_CONTROL17CtrlVK_MENU18AltVK_PAUSE19PauseVK_CAPITAL20Caps LockVK_KANA2

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    mmo1: TMemo;    procedure FormResize(Sender: TObject);    procedure FormShow(Sender: TObject); 

一個例子： with QryTemp do begin     if Active then close;     sql.Clear;     //    select dsjbh,qh,uphone,zjtype,uzjsj,checkflag from user_card     sql.Text:='update user_card set checkflag=1 where'      +' dsjbh=:dsjbh and uphone=:phone and qh=:qh';    

//My Sample Code unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);    procedure MyMsg(var msg: TWMKeyDown); message

在Delphi中編寫控制項的基本方法（轉）2007-12-10 16:49　　作為Delphi程式員，要想進一步提高編程水平就必須掌握控制項的編寫方法，本篇文章將通過一個簡單的例子來為初學者介紹編寫控制項的一些基本方法和模式。 　　這個例子控制項叫TLeiLabel，是在TLabel的基礎上增加兩個實用的功能：一是使文字具有立體形狀，二是使文字具有超連結屬性。下面就讓我們一步步來實現這些功能。 　　一、使文字具有立體形狀 　

unit mainunit;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Buttons,Registry;type  TForm1 = class(TForm)    GroupBox1: TGroupBox;    RadioButton1: TRadioButton;    CheckBox1: TCheckBox; 

一、開使你的第一個DLL專案  1.File->Close all->File->New﹝DLL﹞ 代碼:　　//自動產生Code如下 library Project2; //這有段廢話 uses SysUtils, Classes; {$R *.RES} begin end.2.加個Func進來： 代碼:　　library Project2; uses SysUtils, Classes; Function MyMax ( X , Y : integer ) :

function Tformmain.UpdateUsercardFlag(dsjbh,qh,uphone:string):boolean;//更新使用者號碼簿中的檢查標誌begintry    with QryTemp do begin     if Active then close;     sql.Clear;     //    select dsjbh,qh,uphone,zjtype,uzjsj,checkflag from user_card    

可視化控制項(Visual Component)實際上就是一個類(class)，要編寫一個類，可以直接在*.pas檔案中編寫。但是要編寫控制項，則必須使用包 (package)。從File菜單中選擇New，建立一個Package，這就是存放和安裝控制項用的包。然後單擊Package視窗中的Add按鈕，添 加一個元件(Unit)。 在彈出的對話方塊最上方選擇New

Delphi中使用ADO串連Excel有感    By panther666 今天在Delphi中使用ADO串連Excel(以前在一本書看過，複習一下-_-!!)，有所收穫，不敢獨享。 第一部分： 1. 設定ADOConnection的ConnectionString屬性的OLE DB的提供者要選擇Microsoft Jet 4.0 OLE DB Provider(這本來是用於串連Access資料庫的驅動程式，但也可開啟Excel檔案),按 "下一步"按鈕 2.

--大家好:     我把一條包含特殊字元(比如:[)的自負串插入資料庫後,但是我接著查詢的時候輸入[作為查詢條件,怎麼就查詢不到結果,請問應該怎麼來改寫?   我寫的SQL語句:SelectCommand="SELECT CODE, DESCRIPTION FROM CATEGORY WHERE (CODE LIKE '%' + @Code + '%' AND DESCRIPTION LIKE '%' + @Desc + '%')">      @Desc

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    edt1: TEdit;    btn1: TButton;    procedure FormCreate(Sender: TObject);  private    procedure

     近段時間忙著那個企業商務助理，測試發現一些手機號碼校正的問題，後來自己修複bug的時候，同事用了系統編寫裡面的一些函數。我看了看函數的原型，儘管簡單，但是還是留下來學習或者什麼時候也用。function GetMobileType(mobile: string): integer; //-1錯誤，小靈通0,1,手機移動2,聯通3var  mblen: integer;  tmp_mobile: int64;  mbHeader: string;begin  result := -1; 

文章目錄 巧用網路命令 讓網路特殊故障輕鬆解決 巧用網路命令 讓網路特殊故障輕鬆解決 作者：不詳  來源：安全中國  日期：2008-09-08 15:25:04高效、快速地解決網路故障，是每一位網路管理員都需要認真修鍊的“功課”。為了做好這項“功課”，網路管理員們開足了腦筋，總結出了相當多的網路故障解決技巧。可是仔細對這些技巧進行一下推敲，我們可以看出有一部分故障解決技巧都是在Windows介面中進行的，雖然這些絕招比較方便使用者使用，