Panel1안에 Button1, Button2, Button3, Button4, Button5이 있다는 가정하에
case 문으로 각각의 버튼을 제어하려합니다. 예를 들어서..
근데 이버튼들은 Panel1안에 들어있기 대문에 Panel1을 잘 사용하면 간편하게
제어가 될거 같은데... ㅡ,ㅡ 어찌 할지를 몰겠어영! 함 봐주세요!
결론: 입력,수정,삭제,취소등의 기능을 처리하는데 버튼의 TRUE, FALSE 기능을 처리하려합니다.
___________________________________________________________________
Btn_Enabled(0); //프로시저 시행.
procedure TForm1.Btn_Enabled(btn_Mode: Integer);
begin
case btn_Mode of
0 : begin
Button1.Enabled := TRUE;
Button2.Enabled := FALSE;
.
.
end;
1 : begin
Button1.Enabled := FALSE;
Button2.Enabled := TRUE;
.
.
end;
end;
end;
판넬의 ControlCount, Controls 속성을 이용하시면..
<!--CodeS-->
for....
begin
TButton(판넬.Controls(인덱스)).Enabled := (TButton(판넬.Controls(인덱스)).Tag = btn_Mode);
end;
<!--CodeE-->