Q&A

  • 여러개의 버튼을 제어할때...
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;  
1  COMMENTS
  • Profile
    nilriri™ 2005.03.17 18:08

    판넬의 ControlCount,   Controls  속성을 이용하시면..

    <!--CodeS-->

    for....
    begin
         TButton(판넬.Controls(인덱스)).Enabled := (TButton(판넬.Controls(인덱스)).Tag = btn_Mode);
    end;

    <!--CodeE-->