明白delphi的來看看

1樓：達人國王

activecontrol 屬性。

返回擁有焦點的控制元件。當窗體被引用時，如在中，如果被引用的窗體是活動的，activecontrol 指定將擁有焦點的控制元件。在設計時是不可用的；在執行時是隻讀的。

語法。object 所在處代表一個物件表示式，其值是“應用於”列表中的一個物件。

說明。可以使用 activecontrol 來訪問控制元件的屬性或呼叫其方法：例如， =0"。如果在窗體上的所有控制元件都是不可見的或不可使用的，那麼將產生一個執行時錯誤。

每個窗體都可以有一個活動控制元件 (，而不管窗體是否是活動的。在應用程式中，可以在每個窗體上編寫處理活動控制元件的**，即使此窗體不是活動窗體。

這個屬性在多文件介面 (mdi) 應用程式中尤其有用，其中工具欄上的一個按鈕必須初始化為 mdi 子窗體中的控制元件上的一個動作。當使用者單擊工具欄上的“複製”按鈕時，**可以引用 mdi 子窗體的活動控制元件中的文字，例如。

注意如果計畫將傳遞給一個過程，那麼在那個過程中必須用子句 as control 而不是指定控制元件的型別（as textbox 或 as listbox）宣告引數，即使 activecontrol 總是引用相同型別的控制元件。

myrect:=;讀入形狀（左，上，右，下）

; 右=左+2*(右-左)）右-左=長度。

div 2; /下=上+(下-上)/2）下-上=高度。

myrect;//同樣不明白重設形狀(左，上，右，下)

2樓：如一界

**很簡單，就是用一個trect結構，將當前啟用控制元件的位置區域，取出來，經過計算後，再設定當前啟用控制元件的位置區域。

表示了當前啟用元件的區域（上下左右），當你對它賦值的時候，就是修改它的區域，

3樓：匿名使用者

為什麼改變控制元件的大小要用rect..

如果是我的話我會這樣寫：

procedure : tobject);

varmybutton:tbutton;

beginmybutton:=tbutton(sender);/把sender強制轉換成一個button控制元件。

;/修改寬。

div 2;//修改長。