德爾福 - 在運行時創建的引用組件

Question

我使用的是Delphi 5，我在運行時創建了一些面板，然後在面板上創建按鈕，顯然在運行時也是如此。我需要這樣做，因爲我可能需要在未來動態創建更多面板/按鈕組合。

我可以做所有這些，但是我不知道如何引用我創建的面板，因爲我找不到訪問面板組件名稱的方法。在Internet上搜索我發現我可以使用FindComponent來按名稱查找面板組件，但我仍然不知道如何使用該名稱，因爲我無法使用字符串變量來引用它 - 例如， StringVar：= Panel.Name。我得到一個類型不匹配，TComponentName與String。

我在創建面板時爲每個面板創建了按鈕。簡化，它看起來像這樣：

With TypeQuery do begin // Create Panels 
    First; 
    While (not eof) do begin  // create the actual panel 
     panelno := FieldByName('Product_type_id').AsInteger; 
     pnl := Tpanel.Create(Self); 
     pnl.name := FieldByName('PanelName').AsString; 
     pnl.color := clInactiveCaption; 
     pnl.parent := MainForm; 
     pnl.width := 365; 
     pnl.Height := 551; 
     pnl.left := 434 
     pnl.top := 122; 
     pnl.caption := ''; 
     With ButtonQuery do begin 
     Close; 
     Parameters.parambyname('PanelID').Value := PanelNo; 
     Open; 
     First; 
     While (not eof) and (FieldByName('Product_type_id').AsInteger = PanelNo) do begin //put the buttons on it. 
      btnName := FieldByName('ButtonName').AsString; 
      BtnText := FieldByName('ButtonText').AsString; 
      BtnGroup := FieldByName('Product_Group_ID').AsString; 
      GrpColour := FieldByName('ButtonColour').AsString; 
      btn := TColorButton.Create(Self); 
      btn.Parent := pnl; 
      btn.Name := BtnName; 
      Btn.backcolor := HexToTColor(GrpColour); 
      btn.Font.Name := 'Arial Narrow'; 
      btn.Font.Style := [fsBold]; 
      btn.Font.Size := 10; 
      . . . 
     end; 
     . . . 
    end; 
    end; 

我讀過幾個論壇（包括這一個），沒有辦法通過名稱直接引用面板。我試過使用組件數組，但是我遇到了同樣的問題 - 我需要通過指定的組件名稱來引用組件。

好的，我不是一個槍程序員 - 我用Delphi多年來創建簡單的程序，但這個更復雜。我以前從未使用過運行時組件創建。

我可以使用FindComponent使面板可見或不可見嗎？如果是這樣，鑑於我在上面給你們展示的東西，你能給我採取嬰兒步驟的方法嗎？

在此先感謝...

Answer 1

我不知道你所說的意思： 「我不能使用一個字符串變量來引用它 - 比如STRINGVAR：= Panel.Name」

試試這個：

procedure TForm1.FormCreate(Sender: TObject); 
var 
    p: TPanel; 
begin 
    p := TPanel.Create(Self); // create a TPanel at run-time 
    p.Name := 'MyPanel'; // set a unique name 
    p.Parent := Self; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    p: TPanel; 
    StringVar: string; 
begin 
    p := FindComponent('MyPanel') as TPanel; 
    if Assigned(p) then // p has reference to MyPanel 
    begin 
    // use that reference 
    p.Caption := 'Foo'; 
    StringVar := p.Name; 
    ShowMessage(StringVar); 
    end; 
end; 

還是我錯過了什麼？

Answer 2

你與變量名混爲一談的組件名稱。 Delphi IDE努力使這兩者保持一致，即IDE創建的組件，但它們不一定相同。您沒有變量名稱，因爲您正在動態創建組件，並且您不知道需要多少個變量。但是，您仍然可以控制組件名稱：只需指定組件的Name屬性，然後通過調用FindComponent，以與使用其他組件名稱相同的方式使用它。只要確保每個面板實例的名稱都是唯一的。

還要記住的方式來處理變量，當你不知道在編譯時你需要多少，是用陣列或名單。您可以使用普通的舊數組，或者您可以使用更復雜的數據結構，如TComponentList或TDictionary。

最後，爲了更容易地指的是你要創建的面板上的控制上，你可以用面板分配和使用幀來代替。您可以在IDE中直觀地設計一個TFrame併爲按鈕命名，並且在運行時，可以實例化框架類，並且它會自動爲您創建所有按鈕，就像實例化表單或數據模塊時一樣。您只需要爲新的框架對象命名，但該對象已經具有指向按鈕的命名字段。

Answer 3

您可以將需要的組件添加到TList | Container ...然後，用你的列表|容器來訪問它們

var 
    slPanels: TStringList; 
... 


With TypeQuery do begin // Create Panels 
    First; 
    While (not eof) do begin  // create the actual panel 
     panelno := FieldByName('Product_type_id').AsInteger; 
     pnl := Tpanel.Create(Self); 
     pnl.name := FieldByName('PanelName').AsString; 
     slPanels.AddObject(FieldByName('PanelName').AsString, pnl); 

當你需要它：

TPanel(slPanels.Objects[slPanels.IndexOf(FieldByName('PanelName').AsString)]) ... 

我不喜歡上面的代碼（有更好的容器......但是這應該做的工作： o））

Answer 4

應該不需要創建您創建的項目的輔助列表以顯示在tForm實例上。

據我所知，只要您創建一個使用窗體或地方自

pnl := Tpanel.Create(Self); 

的其他容器，你不需要採取銷燬，然後新PNL的照顧，因爲它是由處理的新面板包含「自我」組件。

這意味着應該有任何將持有父組件的子組件的構造。

我希望你會在父對象中找到ComponentCount或Components列表或FindComponent方法。 假設「自我」引用的對象是一個Tform。

for i := 0 to tForm(self).ComponentCount -1 do 
    if tForm(self).Components[i] is tPanel then 
     tPanel(tForm(self).Components[i]).Caption := intToStr(i) ; 

將更改應用程序中tPanel的所有標題。 爲了區分由代碼和設計器創建的面板，您可以使用每個創建的tPanel的TAG屬性並在上例中使用它。