Delphi-TComboBox下拉取值

建立一個類,儲存我們需要的資料:TItemEx=class(TObject)public      caption:string;      StringValue:string;end;//使用adoquery中的值填充comboboxfunction FillInComBoBoxWithAdoQuery(objAdoQuery:TAdoQuery;objComBoBox:TComboBox;sql:string;captionFieldName:string;    valueFieldNa

Delphi dll表單封裝

1.Create Form =>  FromTest.pas 

判斷網頁全部載入完畢的方法

 以下分2種情況說明:(範例程式碼為delphi) 使用TWebBrowser            這個組件再一般開發工具都有。有時我們操作網頁時想在頁面載入完畢後做一些操作           我們可以把代碼寫在DocumentComplete裡面,當頁面載入完畢後會自動觸發該事件。但有時頁面由多個Frame組成,當每個架構載入完           後都會觸發該事件會對我們的操作造成麻煩 怎麼解決呢 需要加一句話            if

改變 cxGrid 某列的顯示值

 procedure TSuppliersListForm.cxGrid1DBTableView1Column1GetDataText(  Sender: TcxCustomGridTableItem; ARecordIndex: Integer;  var AText: String);var  sid:string;begin  if varToStr(Sender.GridView.ViewData.Records[ARecordIndex].Values[10])<>'' t

建立一個 Web ActiveX 的屬性供網頁調用

 1.視圖 > 類型庫2. 右鍵 IActiveFormX->建立->Property(屬性) ,然後會出現兩個節點分別為讀和寫3.屬性更名"test", 類型設為 BStr 為字串類型4.類型庫上方工具列有個重新整理按鈕,執行重新整理,在ActiveFormX字碼頁中會自動添加Get_test函數 和 Set_test方法5.定義全域變數 var Ptest:string; 在 implementation 之後6.修改 Set_test 函數程式碼片段  Ptest

inifiles.ReadString 會丟失不可見字元

有一個  Ini 檔案 內容如下[marc]cnperi=abc123 其中第一個 字元 與 最後一個字元 是 chr(31)  chr(30)  他們都是不可見字元 procedure TForm1.Button1Click(Sender: TObject); var ini:TIniFile ; s:widestring;begin ini:=TIniFile.Create('d:\test.ini'); s:=ini.ReadString('marc','cnperi','');

WM開發中的幾個問題

一)建立存取點程式中如果要使用http或socket串連伺服器,需要先串連網路。 ConnMgrEstablishConnectionSync函數中的CONNMGR_CONNECTIONINFO參數,不論採用 IID_DestNetWAP還是IID_DestNetInternet,似乎都要依賴於手機上的存取點設定。都怪中國移動非要搞什麼CMNET、 CMWAP,中國特色的通訊公司。可以自行建立一存取點。以下代碼建立一個CMWAP存取點:CString strFavoriteXml =L"<

cxGrid 實現 checkbox(無資料庫記錄)

SQL語句Query.SQL.add('select   *,'N' as Selected from make order by name ')進入QUERY欄位編輯器將 Selected 的 FieldKind 設定為 fkInternalCalc確保 readonly 為 false給 cxGrid1DBTableView1 建立一列,選擇 fielname 設為 SelectedValueCheck := 'Y'   , ValueunCheck :=

2 Buzz Words: xml schema and web service

XML ShemaXML定義語言除了XML Shema之外,還有Schematron,RELAX,TREX等。RELAX是日本提出的XML定義標準。RELAX,TREX兩種標準合并,成為現在的RELAX NG標準。這些XML定義標準的側重點和功能各有所長。這幾種設計語言配合使用,能夠設計出健壯,靈活,強約束的XML定義。利用一些重要的文法(比如XML Shema的Any tag)特性,能夠實現XML Shema的繼承,多態,重用。Web Serviceweb

使用 ImageEnView 給圖片加浮水印效果

uses imageenview; procedure Water(src,png:string);var X,Y:Integer; ImageEnView1:TImageEnView; jpgWidth,jpgHeight:Integer; pngWidth,pngHeight:Integer;begin ImageEnView1:=TImageEnView.Create(nil); ImageEnView1.IO.LoadFromFilePNG(png); pngWidth:=

穩壓二極體

2穩壓二極體在電路中常用“ZD”加數字表示,如:ZD5表示編號為5的穩壓管。1、穩壓二極體的穩壓原理:穩壓二極體的特點就是擊穿後,其兩端的電壓基本保持不變。這樣,當把穩壓管接入電路以後,若由於電源電壓發生波動,或其它原因造成電路中各點電壓變動時,負載兩端的電壓將基本保持不變。2、故障特點:穩壓二極體的故障主要表現在開路、短路和穩壓值不穩定。在這3種故障中,前一種故障表現出電源電壓升高;後2種故障表現為電源電壓變低到零伏或輸出不穩定。常用穩壓二極體的型號及穩壓值如下表:型 號 1N4728 1N4

utf8轉gb

function unicode2gb(const unicodestr:string):string;var SourceLength:integer;  DoneLength:integer;  AscNo:integer;  Byte1,Byte2,Byte3:integer;  GbStr:string;begin GbStr:=''; if Trim(unicodestr)='' then

建立一個 ActiveXFrom 事件給網頁調用

1.視圖>類庫  > IXXXEvents > 新方法2.OnMenuClick 參數 item short * [in,out]  , value BSTR * [in,out]3.進入 XXX_TLB.pas     procedure OnMenuClick(var item: Smallint; const value : WideString); dispid 209;    THzqGridOnMenuClick = procedure(ASender:

ImageEn 轉自慧都控制項網

特徵綜述 About Feature 特點:  輸入/輸出:  提供不同的載入/儲存操作   載入並儲存為JPEG(RGB, GrayScale, YCbCr, CMYK, YCbCrK)格式到檔案中(with also 1/2, 1/4 and 1/8 subsizes for fast preview)。讀出/寫入APP0-APP15,COM Jpeg標記。   JPEG2000:JP2,J2K,J2K和JPC代碼串格式(標準的JPEG-2000 Part-1,ISO/IEC 15444-1

delphi 讀取顯示網頁上的圖片方法

uses jpeg,;type  TForm1 = class(TForm)    ...    Image1: TImage;   

NGUI樣本-UIAnchor講解

轉載地址:http://www.narkii.com/club/thread-263970-1.htmlNGUI例子製作過程,由筆者參照NGUI的例子重新自己做了一遍,以加深對NGUI用法的理解。一、Example 1 – UIAnchor該例子是示範NGUI中使用Anchor組件實現GUI對齊的功能。其最終效果如下:下面一步一步實現該例子。1. 刪除建立的情境的Main Camera攝像機,在圖層中建立一個GUI層,接著,選擇菜單上的NGUI->Create a new

場效應晶體管放大器

場效應晶體管具有較高輸入阻抗和低雜訊等優點,因而也被廣泛應用於各種電子裝置中。尤其用場效管做整個電子裝置的輸入級,可以獲得一般晶體管很難達到的效能。場效應管分成結型和絕緣柵型兩大類,其控制原理都是一樣的。

NGUI樣本-Menu講解

轉載地址:http://www.misoft.com.cn/thread-7809-1-2.htmlNGUI例子製作過程,由筆者參照NGUI的例子重新自己做了一遍,以加深對NGUI用法的理解。(建議先看下官網的基礎教程,對NGUI有初步瞭解之後,再看這個文章。)該貼需要前面我寫的內容,請有興趣的童鞋先熟悉前面的做法,再看本帖。哈哈Example3-Menu其最終效果是視窗中的Label文字出現打字效果,當按下Options按鈕時,兩個視窗會來回切換,:1.按照前面三個文章的前幾步,製作出基本的A

FireBird 使用筆記

windows版本安裝後:管理者預設:名稱:sysdba,密碼:masterkeyfirebird.conf tcp/ip設定RemoteServiceName = gds_dbRemoteServicePort = 3050聯機別名的方式:aliases.confServer_name:aliasnameBIN目錄命令集c:/../gsec -user sysdba -password masterkey 修改密碼(長度8位): modify sysdba

NGUI樣本-ControlIerInput講解

轉載地址:http://game.ceeger.com/forum/read.php?tid=4222&fid=16NUI官方執行個體—ControlIerInput哈,國慶到西塘和烏鎮玩了三天,那個人多呀!還是回來寫教程吧。在NGUI外掛程式中,你可以設定該GUI的輸入方式,例如通過滑鼠、鍵盤、手柄等方式來控制元素的選擇。在官方樣本的Example4 –

總頁數: 61357 1 .... 14024 14025 14026 14027 14028 .... 61357 Go to: 前往

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.