저라면 구지 어려운 방법 찾지 않고 아래와 같이 보이지 않는 레이블 하나 선언하고, 거기에 캡션에 넣을 문자열을 넣어서 레이블이 자동으로 width 바뀌는 걸 이용해서 아래와 같이 하겠습니다..
참고하시고요... 물론 복잡하게 하는 방법이 있을지 모르지만 이 방법도 그냥 쓸만은 한 것 같아요..
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := '음 이렇게 하면 편하군 --;;';
RadioButton1.Width := Label1.Width + RadioButton1.Height + 3;
// 여기서 RadioButton1.Height 를 더하고 3 을 더한건 옆에 라디오 버튼
// 누르는 부분 때문이니깐 적절히 조정하시면 됩니다..
RadioButton1.caption := Label1.Caption;
end;
참고하시고요... 물론 복잡하게 하는 방법이 있을지 모르지만 이 방법도 그냥 쓸만은 한 것 같아요..
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := '음 이렇게 하면 편하군 --;;';
RadioButton1.Width := Label1.Width + RadioButton1.Height + 3;
// 여기서 RadioButton1.Height 를 더하고 3 을 더한건 옆에 라디오 버튼
// 누르는 부분 때문이니깐 적절히 조정하시면 됩니다..
RadioButton1.caption := Label1.Caption;
end;
그럼 안녕히..