Q&A
- getClass 질문입니다. 꼭..
이걸 꼭 구현 하고 싶은데...
MyFormClass := TFormClass(GetClass(sClass)); 부분을
MyFormClass := TFormClass(TForm2); 이렇게 직접 적어주면 create 되거든요
근데 위처럼 GetClass 하면 실행이 되질 않아요...
어떻게 해야 할까요. 꼭좀 알려 주세요.
아래 참조...(이만준님글...)
--------------------------------------------------------------
4. 차일드 폼 다루기
1)클래스 이름으로 차일드 생성하기
차일드 클래스의 이름만으로 차일드를 생성시키는 방법이 있습니다.
델파이가 비주얼 툴리기 때문에 이런 기능이 필요했겠지요..
(1) 차일드 유닛의 맨 아래에 다음라인을 추가한다.
initialization RegisterClasses([TForm2]);
컴포넌트에서 볼 수 있는 소스지요...클래스를 등록하면
'TForm2' 라는 클래스 이름으로 클래스를 찾을 수 가 있습니다.
(2) 이제 생성을 해보지요
function CreateChild(sClass : string):Boolean;
var MyFormClass : TFormClass;
WorkForm : TForm;
H : THandle;
begin
Result := True;
MyFormClass := TFormClass(GetClass(sClass)); //클래스를 찾아온다
if MyFormClass <> nil then begin
WorkForm := MyFormClass.Create(Application.MainForm);
end else Result := False;
end;
..........
메인 폼에서 Form2 := TForm2.Create(Self); 라고 생성했던 루틴을 지우고
CreateChild('TForm2');
라고 써보지요...역쉬...차일드가 생성될 겁니다..
_____________________________________________________________________________
이 기능은 MIS 프로젝트시 유용하게 이용할 수 있지요..
데이타베이스에다 클래스명을 넣어두고
사용자가 어떤 차일드를 실행하려고 하면 읽어와서
바로 생성해주면 되니까요...
매번 차일드를 생성할때마다 소스를 고칠 필요가 없어집니다..
-----------------------------------------------------------------------------
MyFormClass := TFormClass(GetClass(sClass)); 부분을
MyFormClass := TFormClass(TForm2); 이렇게 직접 적어주면 create 되거든요
근데 위처럼 GetClass 하면 실행이 되질 않아요...
어떻게 해야 할까요. 꼭좀 알려 주세요.
아래 참조...(이만준님글...)
--------------------------------------------------------------
4. 차일드 폼 다루기
1)클래스 이름으로 차일드 생성하기
차일드 클래스의 이름만으로 차일드를 생성시키는 방법이 있습니다.
델파이가 비주얼 툴리기 때문에 이런 기능이 필요했겠지요..
(1) 차일드 유닛의 맨 아래에 다음라인을 추가한다.
initialization RegisterClasses([TForm2]);
컴포넌트에서 볼 수 있는 소스지요...클래스를 등록하면
'TForm2' 라는 클래스 이름으로 클래스를 찾을 수 가 있습니다.
(2) 이제 생성을 해보지요
function CreateChild(sClass : string):Boolean;
var MyFormClass : TFormClass;
WorkForm : TForm;
H : THandle;
begin
Result := True;
MyFormClass := TFormClass(GetClass(sClass)); //클래스를 찾아온다
if MyFormClass <> nil then begin
WorkForm := MyFormClass.Create(Application.MainForm);
end else Result := False;
end;
..........
메인 폼에서 Form2 := TForm2.Create(Self); 라고 생성했던 루틴을 지우고
CreateChild('TForm2');
라고 써보지요...역쉬...차일드가 생성될 겁니다..
_____________________________________________________________________________
이 기능은 MIS 프로젝트시 유용하게 이용할 수 있지요..
데이타베이스에다 클래스명을 넣어두고
사용자가 어떤 차일드를 실행하려고 하면 읽어와서
바로 생성해주면 되니까요...
매번 차일드를 생성할때마다 소스를 고칠 필요가 없어집니다..
-----------------------------------------------------------------------------
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 성낙균
- •
- 2001.12.26 21:28
- 2 COMMENTS
- /
- 0 LIKES
-
쩌비•2001.12.26 23:38델파이 5.0과 델파이 6.0 사이에 Variant를 정의하는 Unit이 틀린걸로 아는데요. 제가 틀렸나 쩝.. 하여... -
성낙현•2001.12.27 02:03감사합니다. 거기서 프로그램이 진행되지 못했는데 쩌비님의 도움으로 해결했습니다. 고맙고요, 이렇게 ...
-
- 델사
- •
- 2001.12.26 21:25
- 4 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.12.26 22:52델사 wrote: > 또 도움을 요청드리네요. > > DBGrid의 옵션을 다음과 같이 주었는데요 > [dgTitles,dg...
-
델사•2001.12.26 23:11답변에 감사드립니다. 그런데 저는 델파이3을 사용하고 있거든요. 그래서 그런지 DBGrid상에 있는 이...
-
홍성락•2001.12.26 23:59델사 wrote: > 답변에 감사드립니다. > > 그런데 저는 델파이3을 사용하고 있거든요. 그래서 그런지 ...
-
델사•2001.12.27 02:11Mouse.CursorPos.x를 바로 사용 할 수 가 없어 약간 수정해서 문제를 해결 했습니다. 답변 고맙습니다....
-
- Commom
- •
- 2001.12.26 21:20
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.12.26 21:33Commom wrote: > 안녕하십니까..!!어느덧 크리스마스도 지나고 올한해도 몇일 안남은거 같습니다..!! > ...
-
Commom•2001.12.26 23:58> > 필드 A,B,C 까지는 정상적으로 이상이 없이 저장이 되는데..필드 D에는 아무값도 > > 확인할수 가 없...
-
- 최성원
- •
- 2001.12.26 21:12
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.12.26 23:07최성원 wrote: > > 디비그리드에 SELECT문 결과를 보여주는데요... > > 마지막 레코드의 특정값을 읽...
-
- 궁금이
- •
- 2001.12.26 21:05
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.12.26 23:23궁금이 wrote: > 퀵리포에서 QRShape를 이용해서 세금계산서를 > 만들었는데.. > 미리보기하면은 잘 나...
-
궁금이•2001.12.27 20:09고맙습니다.. 님 말씀대로 하니깐 잘 되더군요.. 이건 때문에 무지 고민 많이 했는데 정말 고맙습니다....
-
- 왕초보
- •
- 2001.12.26 20:38
- 1 COMMENTS
- /
- 0 LIKES
-
한가해•2001.12.27 02:05database 스냅샵 이나 물리적 뷰을 사용하는 것이 좋겠군요. db가 update되는 즉시 뷰를 update합니다. g...
-
- mmx05
- •
- 2001.12.26 20:33
- 1 COMMENTS
- /
- 0 LIKES
이걸 꼭 구현 하고 싶은데... MyFormClass := TFormClass(GetClass(sClass)); 부분을 MyFormClass := TFormClass(TForm2); 이렇게 직접 적어주면 create 되거든요 근데 위처럼 GetClass 하면 실행이 되질 않아요... 어떻게 해야 할까요. ...-
최용일•2001.12.26 21:18안녕하세요. 최용일입니다. 답 다 나와 있는데요... GetClass로 클래스를 찾으려면 그 클래스가 등록...
-
- 고민
- •
- 2001.12.26 20:28
- 1 COMMENTS
- /
- 0 LIKES
-
이광환•2001.12.26 20:39고민 wrote: > text박스에서요 vb에서 sendkey+{end}와 같은역할을 하는게 델파이에서는 어찌해야하는지 ...
-
- 꾸벅이
- 2001.12.26 20:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 별찌
- •
- 2001.12.26 19:57
- 1 COMMENTS
- /
- 0 LIKES
-
vocallo•2001.12.28 19:53별찌 wrote: > 일반폼으로 만든 프로그램을 Web에서 보이도록 할려고 합니다. > 델파이로 ActiveX를 사용...
-
- 나상원
- 2001.12.26 19:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 콤포넌트 왕초보
- •
- 2001.12.26 18:54
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.26 21:35안녕하세요. 최용일입니다. 맨 위에것은 집합입니다. 여러개의 원소를 가질수 있고, 교집합/차집합 등의...
-
- 초보
- •
- 2001.12.26 18:43
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.12.26 20:10초보 wrote: > > except on E: EDBEngineError do 에서 자료가 중복되었을때 에러코드값을 가져오려고 ...
-
- 압스
- 2001.12.26 09:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 김우대
- 2001.12.26 09:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.12.26 09:36
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.12.26 19:16초보 wrote: > 델파이 소스에디터에서 왜 표시로 안되고 슬래시 로나오는지는지...알고싶어요..알려주세...
-
- 걸음마
- 2001.12.26 06:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보학생
- 2001.12.26 04:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 델친구
- •
- 2001.12.25 22:17
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.26 22:47안녕하세요. 최용일입니다. 구현부를 전체 다 삭제하고 선언부에서 Ctrl-Shift-C를 누르세요. 그럼 정렬...
-
- 따식이
- •
- 2001.12.25 13:56
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.26 22:41안녕하세요. 최용일입니다. 압축푸시고 보시면 DLL이라는 폴더에 두개의 dll파일이 있습니다. 이걸 프로...
답 다 나와 있는데요...
GetClass로 클래스를 찾으려면 그 클래스가 등록되어 있어야 합니다. 그 일을 하는것이
RegisterClass(es) 함수이고요...
GetClass호출하기전에 RegisterClass함수를 써서 클래스를 등록해주세요...
initialization섹션이나 폼의 OnCreate이벤트에서 하세요..
^^ 항상 즐코하세요...
mmx05 wrote:
> 이걸 꼭 구현 하고 싶은데...
> MyFormClass := TFormClass(GetClass(sClass)); 부분을
>
> MyFormClass := TFormClass(TForm2); 이렇게 직접 적어주면 create 되거든요
> 근데 위처럼 GetClass 하면 실행이 되질 않아요...
>
> 어떻게 해야 할까요. 꼭좀 알려 주세요.
>
>
>
>
> 아래 참조...(이만준님글...)
> --------------------------------------------------------------
>
> 4. 차일드 폼 다루기
>
> 1)클래스 이름으로 차일드 생성하기
>
> 차일드 클래스의 이름만으로 차일드를 생성시키는 방법이 있습니다.
> 델파이가 비주얼 툴리기 때문에 이런 기능이 필요했겠지요..
>
> (1) 차일드 유닛의 맨 아래에 다음라인을 추가한다.
>
> initialization RegisterClasses([TForm2]);
>
> 컴포넌트에서 볼 수 있는 소스지요...클래스를 등록하면
> 'TForm2' 라는 클래스 이름으로 클래스를 찾을 수 가 있습니다.
>
> (2) 이제 생성을 해보지요
>
> function CreateChild(sClass : string):Boolean;
> var MyFormClass : TFormClass;
> WorkForm : TForm;
> H : THandle;
> begin
> Result := True;
> MyFormClass := TFormClass(GetClass(sClass)); //클래스를 찾아온다
> if MyFormClass <> nil then begin
> WorkForm := MyFormClass.Create(Application.MainForm);
> end else Result := False;
> end;
> ..........
>
> 메인 폼에서 Form2 := TForm2.Create(Self); 라고 생성했던 루틴을 지우고
>
> CreateChild('TForm2');
>
> 라고 써보지요...역쉬...차일드가 생성될 겁니다..
>
> _____________________________________________________________________________
> 이 기능은 MIS 프로젝트시 유용하게 이용할 수 있지요..
> 데이타베이스에다 클래스명을 넣어두고
> 사용자가 어떤 차일드를 실행하려고 하면 읽어와서
> 바로 생성해주면 되니까요...
>
> 매번 차일드를 생성할때마다 소스를 고칠 필요가 없어집니다..
> -----------------------------------------------------------------------------