나상엽 wrote:

> 제가 할려고 하는 것은 form이 show될때 dll에서 하나의 함수를 호출해서 form에 panel과paintbox를 붙일려고 합니다. 그런데, 생성이 되지 않는 군요.

> 제가 작성한 코드는

> var

> panel : Tpanel;

> paintbox : Tpaintbox;

> begin

> Panel := Tpanel.Create(form);

> Paintbox := Tpaintbox.Create(form);

> Panel.Font.Name := '굴림체';

> Panel.Font.Size := 9;

> Panel.parentFont := False;

> Panel.parent := Form;

> Paintbox.parent := Panel;

> Panel.align := AlClient;

> Paintbox.align := Alclient;

> ..

> ..

> ..입니다.여기서 form은 panel과 paintbox를 붙일 form입니다.

> 부디, 아시는 분은 답변 좀 부탁드려요..

>



일단 Tpanel은 extctrls을 uses절에 추가해야 선언할수 있구요,,,

제가 볼때 마지막에 visible속성을 true로 주셔야할 것 같아요(또는 show method를 이용)....빠진것 같군요..

해결되기를 빕니다. 좋은 하루 되세요.

배불뚝 wrote:

> 나상엽 wrote:

> > 제가 할려고 하는 것은 form이 show될때 dll에서 하나의 함수를 호출해서 form에 panel과paintbox를 붙일려고 합니다. 그런데, 생성이 되지 않는 군요.

> > 제가 작성한 코드는

> > var

> > panel : Tpanel;

> > paintbox : Tpaintbox;

> > begin

> > Panel := Tpanel.Create(form);

> > Paintbox := Tpaintbox.Create(form);

> > Panel.Font.Name := '굴림체';

> > Panel.Font.Size := 9;

> > Panel.parentFont := False;

> > Panel.parent := Form;

> > Paintbox.parent := Panel;

> > Panel.align := AlClient;

> > Paintbox.align := Alclient;

> > ..

> > ..

> > ..입니다.여기서 form은 panel과 paintbox를 붙일 form입니다.

> > 부디, 아시는 분은 답변 좀 부탁드려요..

> >

>

> 일단 Tpanel은 extctrls을 uses절에 추가해야 선언할수 있구요,,,

> 제가 볼때 마지막에 visible속성을 true로 주셔야할 것 같아요(또는 show method를 이용)....빠진것 같군요..

> 해결되기를 빕니다. 좋은 하루 되세요.





답변 정말 감사드립니다. 그런테, visible속성을 true로 해도 안되는 군요.

제 생각에는 호출하는 unit에서 form를 dll에 넘겨줄때(panel의 parent속서을 지정하기 위해서),잘못 되었는 것 같은데, 그냥 form : Tform 해서 인자로 넘겨주니까 안된는 것 같습니다. 그리고, handle를 넘겨주니깐 panel의 parent속성을 지정할수가 없군요(여기서 handle이 무슨 component인지 알수 있으면 좋을 텐데..)

답변 좀 부탁드릴게요.

시간이 많은 관계로 제가 테스트해봤는데요..



호출하는 폼에서

....

implementation

procedure createcont(thisform: Tform); stdcall; external 'Dlltest20.dll';

.....



호출하는 폼show event에서

procedure TForm1.FormShow(Sender: TObject);

begin

createcont(self);

end;



그러면 호출되는 프로시저가 있는 dll('Dlltest20.dll')에서

procedure createcont(callform : Tform);stdcall;

var

panel : Tpanel;

paintbox : Tpaintbox;

begin

Panel := Tpanel.Create(callform);

Paintbox := Tpaintbox.Create(callform);

Panel.Font.Name := '굴림체';

Panel.Font.Size := 9;

Panel.parentFont := False;

Panel.parent := callForm;

Paintbox.parent := Panel;

Panel.align := AlClient;

Paintbox.align := Alclient;

Panel.visible := true;

end;



.....

exports createcont;

.....



잘 되는데... 제가 모르는 뭔가가 있는거 아닐지 모르겠습니다???

그럼 성공하시길...