控制多個TEdits作爲陣列

Question

我想編寫一個數獨解算器，我想控制81個TEdit控件數組，但他們的名字是Edit1，Edit2，Edit3代替Edit[1]，Edit[2]等

我不要爲所有81個控件單獨鍵入OnChange事件處理程序。

我該如何解決這個問題？

Answer 1

您可以動態創建的編輯。

一定要設置的所有者和編輯框的父。

procedure TForm1.OnCreate(Sender: TObject); 
var 
    x, y : Integer; 
begin 
    for y := 1 to 9 do begin 
    for x := 1 to 9 do begin 
     FEdit[x,y] := TEdit.Create(self); 
     FEdit[x,y].Parent := self; 
     FEdit[x,y].Left := // function based on x 
     FEdit[x,y].Top := // function based on y 
     FEdit[x,y].Name := // function based on x and y 
     FEdit[x,y].Width  // any value you like 
     FEdit[x,y].Height // any value you like 
     FEdit[x,y].Tag = 10*y + x; 
     FEdit[x,y].OnChange = OnHandleChange; 
    end; 
    end; 
end; 

procedure TForm1.OnHandleChange(Sender: TObject); 
var 
    x,y : Integer; 
begin 
    if not Sender is TEdit then Exit; 
    y := TEdit(Sender).Tag div 10; 
    x := TEdit(Sender).Tag mod 10; 
    // Add check if x and y are valid 

// You now know that FEdit[x,y] is changed and you can handle accordingly. 
end; 

FEdit是窗體的二維數組字段。

Answer 2

你可以做這樣的事情：

var 
    myedit: array[1..81] of TEdit; 
    i: integer; 
... 
begin 
... 
for i := 1 to 81 do begin 
    myedit[i] := TEdit.Create(form1); 
    with myedit[i] do begin 
    width := 50; 
    top := 50 + (i * 55); 
    left := 50; 
    text := 'mytext '+inttostr(i); 
    parent := form1; 
    // more properties... 
    end; 
    end; 
... 

您可以創建任何你想要動態地使用類似的代碼。

Answer 3

你不需要一個做一個。 您可以使用shft-click或ctrl-drag選擇一個窗體上的多個控件，並通過矩形選擇它們。

所以一般：

• 使用Object Inspector來設置onChange處理一個編輯
• 可選其重命名爲一個更一般的名稱使用對象檢查
• 選擇上的所有其他編輯形式
• 選擇您剛剛使用對象檢查創建的處理程序。 它將被分配給您選擇的所有編輯。

Answer 4

除了使用常用的OnChange事件處理程序並創建編輯運行時，還可以使用designtime製作的控件填充數組。

正如我最近在this answer解釋，你可以添加設計時做出控制，以您的一維或二維數組：用FindComponent搜索他們的名字，有一個環形的Tag屬性搜索它們，或者通過手動將其添加到該數組通過鍵入他們的81個變量。