그룹박스에 있는 내용을 다른 그룹박스로 옮길려고 하는데 어떻게 해야 하나요..
참고로 그룹박스가 17개 입니다.
한 개의 그룹 박스에는 판넬4개가 있음...
즉 4개의 판넬(모두 태그로 지정되어 있음)에
있는 내용을 다른 그룹의 판넬로 옮기고 싶거든요..
많은 도움 부탁드립니다.
case문을 두개 쓰는수 밖에 없나요..
그러면 소스가 너무 복잡해져 쓰기가 싫거든요..
예를들면
case (Source as TPanel).tag of
1:
case (Sender as TPanel).Tag of
1:
2:
2:
case (Sender as TPanel).Tag of
1:
2:
이런식으로 나가면 비효율적인것 같아서요..
procedure Form1.CopyGroupBox(Source, Dest: TPanel);
var
I: Integer;
begin
// 판넬에 어떤 컨트롤들이 있는줄 몰라서..
for I := 0 to Source.ControlCount - 1
begin
Dest.Controls[I].Caption := Source.Controls[I].Caption;
...
...
...
end;
end;
김준연 wrote:
> 그룹박스에 있는 내용을 다른 그룹박스로 옮길려고 하는데 어떻게 해야 하나요..
> 참고로 그룹박스가 17개 입니다.
> 한 개의 그룹 박스에는 판넬4개가 있음...
> 즉 4개의 판넬(모두 태그로 지정되어 있음)에
> 있는 내용을 다른 그룹의 판넬로 옮기고 싶거든요..
> 많은 도움 부탁드립니다.
> case문을 두개 쓰는수 밖에 없나요..
> 그러면 소스가 너무 복잡해져 쓰기가 싫거든요..
> 예를들면
> case (Source as TPanel).tag of
> 1:
> case (Sender as TPanel).Tag of
> 1:
> 2:
> 2:
> case (Sender as TPanel).Tag of
> 1:
> 2:
> 이런식으로 나가면 비효율적인것 같아서요..