자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi 동적으로 폼을 생성하는 방법 문의
2019.05.10 19:40
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
안녕하세요?
웹브라우저가 삽입된 폼을 동적으로 띄우게 하고 싶습니다.
메인화면에 띄울 창의 갯수를 입력받는 부분을 두어서
그 수만큼 폼을 띄우게 하고 싶습니다.
실행버튼을 누르면 원하는 갯수만큼 폼창이 뜨게 것입니다.
지금 제가 한 방식은 미리 웹브라우저를 넣은 폼을 10개 정도 미리 만들고
10개 범위 내에서 사용자가 실행 버튼을 클릭하면
설정한 수 만큼 차례로 창이 뜨게 하는 것인데요.
이 방법으로 하면 컴 성능이 좋지 않을땐 너무 느려지더군요.
그렇게 하지 않고 임의의 숫자를 넣고 버튼을 누르면 그 숫자만큼 동적으로 폼을 생성해서 창이 떴으면 좋겠습니다.
웹브라우저가 들어간 폼이 떴으면 좋겠습니다.
팁이 있으신 분들의 의견을 부탁드립니다.
감사합니다.
댓글 2
-
조대현
2019.05.14 10:15
-
델초보왕
2019.05.21 11:22
델파이 왕 초보라 도움이 될지 모르겠네요. 참고 하세요.
1.웹브라우저가 있는 폼 하나 생성(Project > Application > Forms : Auto-create forms 해제
2.메인폼에서 생성하고자 하는 개수를 넣고 버튼 클릭
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
f: TForm;
begin
for I := 1 to StrToInt(Edit1.Text) do
begin
f := TForm2.Create(self);
f.Caption := i.ToString;
f.Show;
end;
end;
Delphi 동적으로 폼을 생성하는 방법 문의
2019.05.10 19:40
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
안녕하세요?
웹브라우저가 삽입된 폼을 동적으로 띄우게 하고 싶습니다.
메인화면에 띄울 창의 갯수를 입력받는 부분을 두어서
그 수만큼 폼을 띄우게 하고 싶습니다.
실행버튼을 누르면 원하는 갯수만큼 폼창이 뜨게 것입니다.
지금 제가 한 방식은 미리 웹브라우저를 넣은 폼을 10개 정도 미리 만들고
10개 범위 내에서 사용자가 실행 버튼을 클릭하면
설정한 수 만큼 차례로 창이 뜨게 하는 것인데요.
이 방법으로 하면 컴 성능이 좋지 않을땐 너무 느려지더군요.
그렇게 하지 않고 임의의 숫자를 넣고 버튼을 누르면 그 숫자만큼 동적으로 폼을 생성해서 창이 떴으면 좋겠습니다.
웹브라우저가 들어간 폼이 떴으면 좋겠습니다.
팁이 있으신 분들의 의견을 부탁드립니다.
감사합니다.
댓글 2
-
조대현
2019.05.14 10:15
-
델초보왕
2019.05.21 11:22
델파이 왕 초보라 도움이 될지 모르겠네요. 참고 하세요.
1.웹브라우저가 있는 폼 하나 생성(Project > Application > Forms : Auto-create forms 해제
2.메인폼에서 생성하고자 하는 개수를 넣고 버튼 클릭
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
f: TForm;
begin
for I := 1 to StrToInt(Edit1.Text) do
begin
f := TForm2.Create(self);
f.Caption := i.ToString;
f.Show;
end;
end;
준비물
TFormMiniWeb : 폼에 웹브라우저 1개가 올라간 폼
procedure TForm1.Button1Click(Sender: TObject);
begin
var f:TFormMiniWeb;
f:=TFormMiniWeb.Create(Self);
f.Show; // 동적 생성 후 폼 표시
end;