버튼 A가 있고 버튼 B, 버튼 C가 있는데
버튼 A를 한번 누르면 버튼B, 버튼C가 동작이 안되게 하고
다시 한번 누르면 버튼B, 버튼C가 동작이 되게 하고 싶다는 말씀이신가요?
토글 버튼 같이럼 만들고 싶다는 걸로 이해하고...설명 드립니다.
procedure TForm1.ButtonAClick(Sender: TObject);
begin
if ButtonA.Tag = 0 then ButtonA.Tag := 1
else ButtonA.Tag := 0;
ButtonB.Enabled := (ButtonA.Tag = 0);
ButtonC.Enabled := (ButtonA.Tag = 0);
end;
일케 하면 됩니다.
디폴트로 ButtonA의 Tag는 0입니다. (프로퍼티에서 찾아보세요)
그럼 버튼을 한번 눌렀을 때.. tag가 1로 바뀌겠죠...?
그럼 ButtonB.Enabled 과 ButtonC.Enabled 는 False 값을 갖게 됩니다.
다음에 눌렀을 때 tag가 1이니까 else 문장을 탈것고 그럼 tag가 0으로 바뀌
겠죠? 그럼 ButtonB.Enabled 과 ButtonC.Enabled 는 True 값을 갖게 됩니다.
또 한번 누르면 다시 tag가 1로 바뀌고..false...또 누르면 0으로 바뀌고 True..
버튼 A를 한번 누르면 버튼B, 버튼C가 동작이 안되게 하고
다시 한번 누르면 버튼B, 버튼C가 동작이 되게 하고 싶다는 말씀이신가요?
토글 버튼 같이럼 만들고 싶다는 걸로 이해하고...설명 드립니다.
procedure TForm1.ButtonAClick(Sender: TObject);
begin
if ButtonA.Tag = 0 then ButtonA.Tag := 1
else ButtonA.Tag := 0;
ButtonB.Enabled := (ButtonA.Tag = 0);
ButtonC.Enabled := (ButtonA.Tag = 0);
end;
일케 하면 됩니다.
디폴트로 ButtonA의 Tag는 0입니다. (프로퍼티에서 찾아보세요)
그럼 버튼을 한번 눌렀을 때.. tag가 1로 바뀌겠죠...?
그럼 ButtonB.Enabled 과 ButtonC.Enabled 는 False 값을 갖게 됩니다.
다음에 눌렀을 때 tag가 1이니까 else 문장을 탈것고 그럼 tag가 0으로 바뀌
겠죠? 그럼 ButtonB.Enabled 과 ButtonC.Enabled 는 True 값을 갖게 됩니다.
또 한번 누르면 다시 tag가 1로 바뀌고..false...또 누르면 0으로 바뀌고 True..
제가 질문을 잘 이해했는지 모르겠네요