버튼이 51개가 있습니다..
1번째 버튼을 클릭하면..
나머지 50개의 버튼이
Enabled:=true; 이 되도록...
즉..
botton1.enabled:=true;
botton2.enabled:=true;
↕
botton49.enabled:=true;
botton50.enabled:=true;
이런식으로 작동을 합니다..
이거를 50개를 다 써주면 넘 무식한거 같아서..
반복문을 사용해서 짧고 간결하게 사용하고 싶습니다..
교수님한테 물어보니 스트링그리드를 사용하라는데...
왜 사용하는지 잘 모르것고..
컴포넌트가 비베처럼 배열로 선언이 되면 쉽게 끝날텐데..
약간만 시간을 투자해서 도와주세요...
밑에 김종화님이 소스까지 예를 들어 설명을 하셨는데 실력이 넘 딸려서 먼지 잘 모르겠어요... ㅠ,.ㅠ
도와주세요.....
procedure TForm1.Button1Click(Sender: TObject);
var
Button: TButton;
i: integer;
begin
for i := 1 to 50 do
begin
Button := FindComponent('button' + IntToStr(i)) as TButton;
Button.Enabled := False;
end;
end;