每一住戶就是一組,有 CHECK_BOX 及 3 個 EDIT

當點選 "參加" 的 CHECK_BOX 時,後面的三組輸入 EDIT 欄位才會顯示,

若沒點選,後面的三組輸入 EDIT 欄位就隱藏.

CHECK_BOX 的欄位名稱

CHECK_BOX001,CHECK_BOX002,CHECK_BOX003......等

EDIT 的欄位名稱

EDIT_A001,EDIT_B001,EDIT_C001,

EDIT_A002,EDIT_B002,EDIT_C002,

EDIT_A003,EDIT_B003,EDIT_C003,..........等

當 CHECK_BOX 點選後,觸發 ＯｎＣｌｉｃｋ 事件,每一個 CHECK_BOX 都有自己的事件,要寫很多程式碼,沒完沒了

以下是 CHECK_BOX001 的範例

procedure TFORM1.CheckBox001Click(Sender: TObject);

begin

if Check_Box001.Checked then

begin

EDIT_B001.Visible := true;

EDIT_A001.Visible := false;

EDIT_C001.Visible := false;

end;

// = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

問題:

是否有可能寫一個共用 ＯｎＣｌｉｃｋ事件(假設是 MyAAAClick ),
可識別那一個 CHECK_BOXnnn 所觸發,然後針對 該 CHECK_BOXnnn 及
相對應的 EDIT_Annn/ EDIT_Bnnn /EDIT_Cnnn 做輸入控制

// 例如: 共用 ＯｎＣｌｉｃｋ 事件

procedure TFORM1.MyAAAClick(Sender: TObject);

var

nnn : integer; // 對照第幾個輸入

cbName := .Components...( .... );

..Components..['EDIT_A' sss].Visible := true;

..Components..['EDIT_C' sss].Visible := true; ..Components..['EDIT_A' sss].Visible := false;

..Components..['EDIT_C' sss].Visible := false; SENDER.ClassParent.QualifiedClassName;

SENDER.ClassParent.UnitScope;

Components[ ComponentIndex ].Name .......等,

就是無法取得,正在輸入的 Check_Box 名稱.

ANDY8C 重新編輯於 2012-06-21 11:42:32， 註解 無‧

P.D. 重新編輯於 2012-06-21 10:55:14， 註解 無‧
P.D. 重新編輯於 2012-06-21 10:56:29， 註解 無‧

明明是 ......共用 ＯｎＣｌｉｃｋ 事件

但網頁自己卻顯示 ....共用 forbidden 事件(

forbidden 取代好幾個 ＯｎＣｌｉｃｋ

進入編輯模式,它又顯示 ＯｎＣｌｉｃｋ

這樣算正常嗎 ???

ANDY8C 重新編輯於 2012-06-21 11:39:46， 註解 無‧

明明是 ......共用 ＯｎＣｌｉｃｋ 事件

但網頁自己卻顯示 ....共用 forbidden 事件(

forbidden 取代好幾個 ＯｎＣｌｉｃｋ

進入編輯模式,它又顯示 ＯｎＣｌｉｃｋ

這樣算正常嗎 ???

P.D. 重新編輯於 2012-06-21 11:47:31， 註解 無‧

明明是 ......共用 ＯｎＣｌｉｃｋ 事件

但網頁自己卻顯示 ....共用 forbidden 事件(

forbidden 取代好幾個 ＯｎＣｌｉｃｋ

進入編輯模式,它又顯示 ＯｎＣｌｉｃｋ

這樣算正常嗎 ???

既然有這麼多相同物件的需求，那麼包成一個 class，或是使用 Frame 來處理應該是一個好方法
[code delphi]

interface

TRoomPanel = class(TPanel)
private
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
CheckBox1: TCheckBox;
procedure CheckBoxＣlick(Sender: TObject);
function GetChecked: boolean;
function GetText(const index: integer): string;
procedure SetChecked(const Value: boolean);
procedure SetText(const index: integer; const Value: string);
public
constructor Create(AOwner: TComponent); override;
property Text1: string index 1 read GetText write SetText;
property Text2: string index 2 read GetText write SetText;
property Text3: string index 3 read GetText write SetText;
property Checked: boolean read GetChecked write SetChecked;
end;

implementation

{ TRoomPanel }

procedure TRoomPanel.CheckBoxＣlick(Sender: TObject);
begin
Edit1.Enabled := CheckBox1.Checked;
Edit2.Enabled := CheckBox1.Checked;
Edit3.Enabled := CheckBox1.Checked;
end;

constructor TRoomPanel.Create(AOwner: TComponent);
begin
inherited;
Font.Name := 'Tahoma';
Font.Size := 10;
Width := 120;
Height := 120;

Edit1 := TEdit.Create(Self);
with Edit1 do
begin
Name := 'Edit1';
Parent := Self;
Left := 10;
Top := 10;
Width := 100;
Text := '';
Enabled := False;
end;

Edit2 := TEdit.Create(Self);
with Edit2 do
begin
Name := 'Edit2';
Parent := Self;
Left := 10;
Top := Edit1.Top Edit1.Height 5;
Width := 100;
Text := '';
Enabled := False;
end;

Edit3 := TEdit.Create(Self);
with Edit3 do
begin
Name := 'Edit3';
Parent := Self;
Left := 10;
Top := Edit2.Top Edit2.Height 5;
Width := 100;
Text := '';
Enabled := False;
end;

CheckBox1 := TCheckBox.Create(Self);
with CheckBox1 do
begin
Name := 'CheckBox1';
Parent := Self;
Left := 10;
Top := Edit3.Top Edit3.Height 8;
Width := 100;
Caption := '使用中';
OnＣlick := CheckBoxClick;
Checked := False;
end;
end;

function TRoomPanel.GetChecked: boolean;
begin
Result := Checkbox1.Checked;
end;

function TRoomPanel.GetText(const index: integer): string;
begin
case index of
1: Result := Edit1.Text;
2: Result := Edit2.Text;
3: Result := Edit3.Text;
end;
end;

procedure TRoomPanel.SetChecked(const Value: boolean);
begin
Checkbox1.Checked := Value;
end;

procedure TRoomPanel.SetText(const index: integer; const Value: string);
begin
case index of
1: Edit1.Text := Value;
2: Edit2.Text := Value;
3: Edit3.Text := Value;
end;
end;


[/code]

使用例：
[code delphi]

interface

TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
RoomPanels: Array[0..9] of TRoomPanel;
public
end;

implementation

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
for i := Low(RoomPanels) to High(RoomPanels) do
begin
RoomPanels[i] := TRoomPanel.Create(Self);
with RoomPanels[i] do
begin
Parent := Self;
Left := (i mod 5) * Width; // 一列 5 個
Top := (i div 5) * Height;
end;
end;
end;

[/code]

<embed width="0" hidden="true" height="0" type="application/lingoes-npruntime-capture-word-plugin" id="lingoes_plugin_object"></embed>

sryang 重新編輯於 2012-06-25 19:01:19， 註解 無‧
sryang 重新編輯於 2012-06-25 19:01:47， 註解 無‧
sryang 重新編輯於 2012-06-25 19:04:53， 註解 無‧
sryang 重新編輯於 2012-06-25 19:06:43， 註解 無‧

感謝

P.D. , LEVEON ,SENSO, SRYANG

的無私

謝謝各位