폼 설계시 여러 컴포(라벨,버튼 등등)을 폼에 올려 놓았습니다.
글구...
필요할때마다 폼을 동적으로 생성을 했습니다.
Form1 의 버튼을 클릭하면,Form2가 조건에 따라 폼이 생성되거나... 아님 생성된
폼이 활성화 되도록.. 아래와 같이.. 했습니다.
그런데.. 문제는요... 조건에 맞는 폼이 이미 생성된 경우 폼이 활성화는 되는데,
폼위의 라벨컴포에 문자를 출력하는건 엉뚱한 폼으로 출력이 되거든요...
어찌하면 좋을까요... ㅠㅠ 고수님들의 조언 부탁드립니다.
요 아래는 제가 사용한 코딩입니다. 최용일님이 많은 도움을 주셨지만, 제가 너무나
부족해서..... 감사합니다.
var
Found: Boolean;
begin
Found := False;
for I := 0 to Screen.FormCount-1 do
begin
if Screen.Forms[I] is TForm2 then
if TForm2(Screen.Forms[I]).FormName = 생성될이름
then
begin
Screen.Forms[I].Show;
Found := True
Form2.label1.caption:='새로운 폼';
Found := True;
Break;
end;
if not Found then //폼이 없다면
begin
Form2 := TForm2.Create(nil); // 새로 생성
Form2.Show;
end;