Delphi 動態選擇控制項的輸入法

2022-07-24 11:51:10 字數 1154 閱讀 5961

delphi 動態選擇控制項的輸入法

delphi的edit、memo等可以接受使用者輸入的控制項,都可以通過imename屬性為其選擇乙個輸入法,但是在程式設計的過程中,我們無法知道最終的使用者會使用哪種輸入法,所以對於控制項imename屬性,我們一般不做設定,但在實際應用中,使用者又希望他們在錄入資料時,能鎖定自己常用的一種輸入法,其實通過簡單的**,我們就能實現這一點。

procedure tform1.formcreate(sender: tobject);

var i:integer;

begin

//初始化的時候,將電腦所安裝的輸入法列舉加入combobox1中。

for  i:=0  to screen.imes.count-1  do

combobox1.items.add(screen.imes.strings[i]);

end;

procedure tform1.combobox1change(sender: tobject);

var i:integer;

begin

//--在輸入法的選擇改變後,重新設定控制項的imename。

i:=0 to self.componentcount-1   do

begin

//以下是設定edit、memo、combobox的輸入法,其它控制項改變類名即可。

if (self.components[i].classnameis('tedit'))  then

(self.components[i] as tedit).imename :=combobox1.text;

if (self.components[i].classnameis('tmemo'))  then

(self.components[i] as tmemo).imename :=combobox1.text;

if (self.components[i].classnameis('tcombobox'))  then

(self.components[i] as tcombobox).imename :=combobox1.text;

end;

end;

delphi程式中動態生成控制項的方法

程式中動態生成控制項的方法分為三步,首先,定義生成的控制項型別,再用create函式生成控制項,最後對控制項的相關屬性賦值。以tbutton控制項為例,步驟如下 a.定義控制項型別 var button1 tbutton b.生成控制項 button1 tbutton.create self but...

Delphi程式中動態生成控制項的方法及應用

一 delphi中生成控制項的兩種方法 1 form 表單 設計中生成控制項 在進行form設計時,直接在控制項工具箱選擇所需控制項,再設定其屬性與響應事件,這種方法比較常見。2 程式中動態生成控制項 1 定義控制項型別 varbutton1 tbutton 2 生成控制項 button1 tbut...

Delphi對於控制項的SuperClassing

windows 內部預定義了一些通用的控制項,我們在用這些控制項的時候不必再呼叫 registerclass 註冊乙個視窗類,只要直接呼叫 createwindows 並指定乙個預定義的視窗類就可以,比如,我們要建立乙個 button 只要用如下形式即可 createwindows button 但...