3

16個のTCheckBoxと32個のTEditBoxを含むフォームがあります。2つのTEditBoxの有効性は、checkBoxの状態によって異なります。だから私は長すぎるこのコードを使用します：

//T1
procedure TOFAddForm.T1Click(Sender: TObject); 
begin
     Q1.Enabled:=T1.Checked;
     P1.Enabled:=T1.Checked; 
     Q1.OnChange(Sender);
end;

.  
.
.

//T16
procedure TOFAddForm.T16Click(Sender: TObject); 
begin
     Q16.Enabled:=T16.Checked;
     P16.Enabled:=T16.Checked;
     Q1.OnChange(Sender);
end;`

このコードを使用しましたが、何も起こりません。

procedure TOFAddForm.T1Click(Sender: TObject);
var Q, P: TEdit;
begin
     with  Sender as TCheckBox do begin
           Q.Name:='Q'+copy(Name,1,2);
           P.Name:='P'+Copy(Name,1,2);
           Q.Enabled:=Checked;
           P.Enabled:=Checked;
     end;
     Q1.OnChange(Sender);
end;

ありがとうございました。

4

3 に答える 3

9

すべてのチェックボックスと編集に一貫した名前が付けられている場合は、このOnClickイベントをすべてのチェックボックスに追加できます。

procedure TOFAddForm.TClick(Sender: TObject);
var 
  C: TCheckBox;
  Q, P: TEdit;
  N: string;
begin
  C := Sender as TCheckBox;
  N := Copy(C.Name, 2, Length(C.Name));
  Q := FindComponent('Q' + N) as TEdit;
  P := FindComponent('P' + N) as TEdit;
  Q.Enabled := C.Checked;
  P.Enabled := C.Checked;
  Q.OnChange(Sender);
end;
于 2011-10-01T08:59:59.000 に答える
3

TEditポインタを配列に格納してから、TCheckBox.Tagプロパティを配列のインデックスとして使用することをお勧めします。例：

var
  Edits: array[0..15, 0..1] of TEdit;

procedure TOFAddForm.FormCreate(Sender: TObject);
var
  K: Integer;
begin
  for k := 0 to 15 do
  begin
    Edits[k, 0] := FindComponent('Q' + IntToStr(k+1)) as TEdit;
    Edits[k, 1] := FindComponent('P' + IntToStr(k+1)) as TEdit;
    (FindComponent('T' + IntToStr(k+1)) as TCheckBox).Tag := k;
end;

procedure TOFAddForm.T1Click(Sender: TObject);
begin
  with Sender as TCheckBox do
  begin
    Edits[Tag, 0].Enabled := Checked;
    Edits[Tag, 1].Enabled := Checked;
    Edits[Tag, 0].OnChange(Sender);
  end;
end;
于 2011-10-02T02:41:27.430 に答える
1

このような場合は、自分でコントロールを作成することを強くお勧めします。OnCreateイベントハンドラーで、を呼び出しTEdit.Create(Self)、自分で管理するデータ構造（動的配列など）にオブジェクト参照を格納し、、、およびイベントハンドラーなどのプロパティを設定ParentしSetBounds、Senderオブジェクト参照のコレクションを検索します（オプションでの値に応じてTag） 、これはほとんどの場合、を使用するよりもパフォーマンスが高くなりFindComponentます。

追加されたボーナスは、繰り返しコントロールの数を簡単に変更でき（実行時に動的にすることもできます！）、dfm-code（最終的な実行可能ファイルに埋め込まれている）にはほとんど同一ではない繰り返しデータが含まれていることです。

于 2011-10-03T16:57:07.060 に答える