Q&A
- 동적 Form 생성에 관한 Error......해결 좀 부탁 합니다.
어려운 고민좀 부탁 드립니다.......
TForm1 은 Available Form 입니다.
폼은 찾는데 Create 에서 Error 가 나는군요..
부탁 드립니다.
procedure TMainForm.menuClick(Sender: TObject);
var
FormClass :TFormClass;
begin
FormClass := TFormClass(FindComponent('TForm1'));
openForm(FormClass);
end;
.
.
.
.
.
.
Procedure TMainForm.OpenForm(FormClass:TFormClass);
var
I:Integer;
Form:TForm;
begin
Form := nil;
For i := 0 to Application.ComponentCount - 1 do
if Application.Components[i].ClassType = FormClass then
Form := (Application.Components[i] as FormClass);
Form := Formclass.Create(Application);
Form.Show;
end;
TForm1 은 Available Form 입니다.
폼은 찾는데 Create 에서 Error 가 나는군요..
부탁 드립니다.
procedure TMainForm.menuClick(Sender: TObject);
var
FormClass :TFormClass;
begin
FormClass := TFormClass(FindComponent('TForm1'));
openForm(FormClass);
end;
.
.
.
.
.
.
Procedure TMainForm.OpenForm(FormClass:TFormClass);
var
I:Integer;
Form:TForm;
begin
Form := nil;
For i := 0 to Application.ComponentCount - 1 do
if Application.Components[i].ClassType = FormClass then
Form := (Application.Components[i] as FormClass);
Form := Formclass.Create(Application);
Form.Show;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 궁금증
- •
- 2001.02.09 21:30
- 1 COMMENTS
- /
- 0 LIKES
-
강호규•2001.02.09 22:09질문의 범위가 너무 크군요... 우선 RDB에서 TTable을 직접 사용하시는 것은 좋지 않은 방법입니다. 락이...
-
-
뿌요•2001.02.09 21:201. select vcnt,count(*) cnt from gb group by vcnt having count(*) > 1 실행해...
-
-
- 정종수
- •
- 2001.02.09 20:44
- 1 COMMENTS
- /
- 0 LIKES
어려운 고민좀 부탁 드립니다....... TForm1 은 Available Form 입니다. 폼은 찾는데 Create 에서 Error 가 나는군요.. 부탁 드립니다. procedure TMainForm.menuClick(Sender: TObject); var FormClass :TFormClass; begin FormClass := ...-
최용일•2001.02.09 22:48안녕하세요. 최용일입니다. 클래스 메소드에 대한 이해가 약간 부족하신거 같습니다... FindComponen...
-
- 클마스
- •
- 2001.02.09 20:16
- 3 COMMENTS
- /
- 0 LIKES
-
까마귀•2001.02.09 20:33클마스 wrote: > -- 에러 > Insufficient Memory for this Operation > Alias: ----. > > 실행파일을...
-
이제관•2001.04.21 09:12이런에러는 통상 멀티티어 구조에서 자주 일어나는 에러인데.. 실제 물리적인 메모리 보다도 데이터 베이...
-
클마스•2001.02.09 21:37까마귀님 답변 감사합니다. 그런데 저두 컴파일후 실행파일을 실행해서 했거든요... 저의 생각에는...
-
- 왕초보
- •
- 2001.02.09 20:28
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2001.02.10 00:34안녕하세요. 최용일입니다. 패스가 잘못된거 같네요... ^^ 항상 즐코하세요... 왕초보 wrote: > ...
-
컴맹...•2001.02.09 21:54동적 배열의 사용법을 말씀하시는것 같군여.... 동적배열을 사용하면 갯수의 제한이 없게 되죠... var ...
-
왕초보•2001.02.10 00:39최용일님이 가르쳐주신대로 넣었는데두 아무일도 안일어나요.. 큰일입니다요... 도대체 뭐가 문제인지....
-
- 왕초보
- •
- 2001.02.09 20:12
- 1 COMMENTS
- /
- 0 LIKES
-
석이•2001.02.09 20:22Select To_Char(sysdate,'yyyy/mm/dd(hh:mi am)') date From Dual; 결과 => 2001/02/09(11:05 오전) ...
-
- 김명일
- •
- 2001.02.09 19:46
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.02.09 23:26안녕하세요. 최용일입니다. 제가 해보았는데 그런일은 안생기더군요... 혹시 버그일지 몰라서 볼랜드 델...
-
- 배경
- •
- 2001.02.09 19:23
- 2 COMMENTS
- /
- 0 LIKES
-
뿌요•2001.02.09 19:44코딩으로 하실려면 굳이 lookupField를 사용하실 이유가.. calcField를 사용하심이 더 좋지 않을까요? ...
-
배경•2001.02.10 22:09꼭 룩업을 사용해야합니다 그리고 그것이 안된다면 필드에디터의 테이블에 필드를 추가는 방법을 알아야...
-
- pallas
- •
- 2001.02.09 19:00
- 3 COMMENTS
- /
- 0 LIKES
-
뿌요•2001.02.09 19:361. edit의 imeMode속성을 imSAlpha로 하고 MaxLength에다 값을 정해준다 2. keypress event procedure...
-
여영식•2001.02.09 19:27val 함수를 써보세요. pallas wrote: > 에디트 박스에서 받은 값이 숫자인지 문자인지 확인할 방법이 ...
-
Larson•2001.02.09 19:14제일 쉬운 방법은 숫자에디트 컴포넌트를 사용하시면 됩니다. 음... 숫자에디트를 사용하기 싫으면 몇가...
-
- 강태공
- •
- 2001.02.09 18:34
- 2 COMMENTS
- /
- 0 LIKES
-
뿌요•2001.02.09 18:49안녕하세요.. 우선 테이블에서 (comput: string형)이면 comput에 값을 넣을때만 string형으로 넣으시면 ...
-
강태공•2001.02.09 19:42답변 대단히 감사합니다. 제가 질문한 의도와 약간 다르게 전달이 된것 같아 이렇게 다시 질문합니다. =...
-
- 이영근
- •
- 2001.02.09 17:45
- 4 COMMENTS
- /
- 0 LIKES
-
뿌요•2001.02.09 18:16테이블 open만 했는데도 키바이얼레이션 에러가 나면 이미 키로 잡힌 필드가 중복으로 들어갔다는 것이구....
-
이영근•2001.02.09 18:56뿌요님 답변 감사합니다. 그런데 이미테이블에 중복으로 들어갔으면 어떻케 처리해야 하나요?바쁘시더라...
-
뿌요•2001.02.09 19:40네.. 이미 테이블에 중복으로 데이타가 들어가 있다면 어느 데이타가 들어갔는지 알아야 하니까.. sql로 ...
-
김종언•2001.02.09 19:40하나를 삭제하세요. 이영근 wrote: > 뿌요님 답변 감사합니다. > 그런데 이미테이블에 중복으로 들어...
-
- peritus
- •
- 2001.02.09 17:24
- 1 COMMENTS
- /
- 0 LIKES
-
까마귀•2001.02.09 20:39peritus wrote: > 저는 LAN으로 연결되어 있는 2대의 PC를 사용하고 있는데 > A컴퓨터에서 데이타(strin...
-
-
강호규•2001.02.09 21:13프라이머리키는 자동을 BDE 수준에서 참조가 됩니다. 참조가 되고 있는지를 확인하시려면 PK같은 경우는 ...
-
-
- 김광섭
- 2001.02.09 08:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 델바보
- 2001.02.09 08:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 스위밍
- •
- 2001.02.09 06:26
- 1 COMMENTS
- /
- 0 LIKES
-
전수완•2001.02.09 13:40스위밍 wrote: > error message는 > 500 5.5.1 command unrecognized : 'USER ksy' 입니다. > > ...
-
- 델파이를 시작하고 있
- •
- 2001.02.09 06:22
- 1 COMMENTS
- /
- 0 LIKES
-
제덕모•2001.02.09 06:54제 경험에 의하면 이런경우 델파이를 삭제하시고 regedit에서도 delphi4또는 5라는 부분을 완전히 삭제하...
-
- son
- •
- 2001.02.09 05:34
- 1 COMMENTS
- /
- 0 LIKES
-
까마귀•2001.02.09 20:47son wrote: > 안녕하세요. > > MS-SQL Enterprise Manager 에서 마스터/디테일 관계를 만들었는데, > ...
-
- 초보초보
- •
- 2001.02.09 05:23
- 1 COMMENTS
- /
- 0 LIKES
-
전수완•2001.02.09 13:45.AsString=''; 로 하니까 잘들어가는데요. Filed Type에서 NULL을 포함하는지 확인해 보시는게. (저는 O...
-
- 이기준
- 2001.02.09 05:09
- 0 COMMENTS
- /
- 0 LIKES
클래스 메소드에 대한 이해가 약간 부족하신거 같습니다...
FindComponent메소드는 현재 소유하고 있는(이미 생성되어 있는) 컴포넌트의 인스턴스를
돌려줍니다. 그러니까 TForm1이 Available Form이니까 TForm1이 이미 생성되어 있지 않
으면 아래 구문은 nil을 반환합니다. 생성되어 있다 하더라도 Owner가 TMainForm이 아니
라 Application이어도 역시 nil을 반환하죠. TMainForm.FindComponent를 호출했으니까요
또하나 인자에는 클래스이름이아니라 인스턴스 이름이 들어가야합니다. TForm1이 아니라
Form1이 들어가야죠...
> FormClass := TFormClass(FindComponent('TForm1'));
아마도 하실려는 일이 메타클래스로부터 폼을 생성하실려는거 같은데 아래와 같이 하세요...
procedure TMainForm.FormCreate(Sender: TObject);
begin
RegisterClass(TForm1); // TForm1 메타클래스(class-reference type) 등록
end;
procedure TMainForm.MenuClick(Sender: TObject);
var
FormClass :TFormClass;
begin
FormClass := TFormClass(GetClass('TForm1'));
OpenForm(FormClass);
end;
procedure TMainForm.OpenForm(FormClass: TFormClass);
var
Form: TForm;
begin
Form := Formclass.Create(Application);
Form.Show;
end;
^^ 항상 즐코하세요...
정종수 wrote:
> 어려운 고민좀 부탁 드립니다.......
>
> TForm1 은 Available Form 입니다.
> 폼은 찾는데 Create 에서 Error 가 나는군요..
> 부탁 드립니다.
>
> procedure TMainForm.menuClick(Sender: TObject);
> var
> FormClass :TFormClass;
> begin
>
> FormClass := TFormClass(FindComponent('TForm1'));
> openForm(FormClass);
>
> end;
> .
> .
> .
> .
> .
> .
> Procedure TMainForm.OpenForm(FormClass:TFormClass);
> var
> I:Integer;
> Form:TForm;
> begin
> Form := nil;
> For i := 0 to Application.ComponentCount - 1 do
> if Application.Components[i].ClassType = FormClass then
> Form := (Application.Components[i] as FormClass);
>
> Form := Formclass.Create(Application);
> Form.Show;
>
> end;
>
>