這是 一隻 Form Resizer 的程式 , 但 元件 Lable1 不知為何不受影響? 請指教，謝謝

附加檔案：25826_ResizerForm.zip

引言: 這是 一隻 Form Resizer 的程式 , 但 元件 Lable1 不知為何不受影響? 請指教，謝謝

懷舊的人 你好: 容小弟我純粹猜測一下 會不會是 Autosize 的屬性沒有設為 false 呢? --

引言:

謝謝，我試過了，不是這原因。 -- Enjoy Researching & Developing -- [/quote]

It is your registry reading part.... I think you forget OpenKey is opening the key RELATIVELY to the current key path.    Line 56:   RKey := '\FormAutoSize';

引言: 如果是這原因，那其他元件為何正常

    Reg.RootKey := HKEY_CURRENT_USER; // 1
    Reg.OpenKeyReadOnly(RKey); // 2
    for I := 0 to ComponentCount-1 do begin
        if not (Components[I] is TControl) then Continue;
        if Reg.OpenKeyReadOnly(RKey '\' TControl(Components[I]).Name) then begin // 3
{ ... refer to source code ... }
        end;
        Reg.CloseKey; // 4
    end;

Lable1 is the 1st component... so at 2 the key path is 'FormAutoSize' and then at 3 it fails since you're going to open 'FormAutoSize\FormAutoSize', it will goto 4 and close the key... Then all other component will goes OpenKey -> Read -> CloseKey, as a result, only the first component has problem.. Hope you can understanding my poor presentation

引言: 找到原因了，在 FormResize 事件 原程式 if Reg.OpenKeyReadOnly(TControl(Components[I]).Name) then begin 改為 if Reg.OpenKeyReadOnly(RKey '\' TControl(Components[I]).Name) then begin 感謝諸位

請問有辨法可以幫我翻成BCB嗎 我自已翻元件都不會變大變小 如果可以的話我可以po出來讓bcb強的人翻好嗎 ~我還在學習狀態希望多多向您學習~