delphi2009中建立乙個簡單的ocx控制項例子
一,建立工程
從file-new-orher-activex-activexlibrary後,會建立乙個型別庫的project1.dll工程
這時只要再加入乙個activeform,ide自動將工程轉成了project1.ocx
在activeform中拉入乙個edit和乙個button,名字預設即可.編輯type library,加入乙個edttext屬性
在activeform中編輯get_edttext和set_edttext的加上以下實現**
function ttest.get_edttext: widestring;
begin
result:=self.edit1.text;
end;
procedure ttest.set_edttext(const value: widestring);
begin
self.edit1.text:=value;
end;
儲存編譯通過就算完成了!
二,除錯
在parameters加入你要除錯的html頁的位址如http://localhost/test/activeformproj1.htm
js傳參
var myobj=document.getelementbyid("ocxtype");//ocxtype為activex物件在html中的id
myobj.edttext=document.getelementbyid("edt1").value;
取引數t2.value=myobj.edttext;
三,效果如圖
Delphi 2009 超前預知
tiburon 是下一版本 delphi 的開發代號，之前的命名應該是 delphi 2008，但最近看 codegear 相關的 blog 文章發現，tiburon 很有可能被命名為 delphi 2009。codegear 的一篇文章也大概描述了此版本新增的一些 vcl 新元件和功能增強的元件，...
Delphi2009的兩個包
1 graphic32 這個處理圖形的庫，已經停止一段時間了，但是也有跟蹤使用的，現在已經有2010版本了，所以graphic32.d2010 已經存在了，編譯安裝，注意安裝設計庫時比較依賴執行庫，注意設定路徑。本執行庫可以簡單開發2d遊戲和影象處理，詳見 2 businessskinform v7...
Delphi2009新特性（1） Exit方法
在函式中，使用result作為返回變數，必須要等所有 執行完成 function tform1.abc x,y integer integer begin if y 0 then result 0 else result x y end delphi 2009，新增了exit方法，指定返回值，同時退...