david 님이 쓰신 글 :
: 이프리뉴 님이 쓰신 글 :
: : david 님이 쓰신 글 :
: : : 이프리뉴 님이 쓰신 글 :
: : : : david 님이 쓰신 글 :
: : : : : 판넬위에 폼을 띄울때 중복실행 안되게 어떻게 해야 하나요?
: : : : : dll 로 하는건 많던데 이런것은 안되나요? 된다면 가르쳐 주시면 고맙겠습니다.
: : : : : 부탁 드립니다.
: : : :
: : : : 특정 판넬위에 아무것도 없다 하시면
: : : : 그 판넬위의 판넬.ComponentCount라는 함수를 이용하시면
: : : :
: : : : 판넬위의 컴퍼넌트 수를 체크하여 실행되고 안되고를 하시면 될 듯 싶습니다.
: : : 이프리뉴 님, 답변 너무 고맙습니다. 이렇게 하고 싶은건데요,
: : : Form1 위에 두개의 판넬을 띠우고 판넬1은 메뉴를, 판넬2 에는  Form2 와 Form3 를 띠울경우  판넬2 위에  Form2 와 Form3 가 중복실행 되는것을 방지할수 있는가 하는것인데요,
: : : 구체적으로 자세히 부탁 드려도 될까요?. 소스를 만들어 주실수는 없을까요?
: : : 이제 시작한 왕초보 라서요.
: :
: : if Panel2.ConponentCount = 0 then begin
: :   이 안에 Form2와 Form3을 띄우는 코딩
: :   //Form 을 생성 할 때
: :   Form := TForm.Create(Panel2);  <- 이 부분이 들어가셔야 합니다.
: : end;
: ========================================================================
: 이렇게 만들었는데 이리도 해보고 저리도 해봐도 안되요. 흑흑 자세히 부탁드립니다. 흑흑
: =========================================================================
: unit Unit1;
:
: interface
:
: uses
:   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
:   Dialogs, StdCtrls, ExtCtrls;
:
: type
:   TForm1 = class(TForm)
:     Panel1: TPanel;
:     Panel2: TPanel;
:     Button1: TButton;
:     procedure Button1Click(Sender: TObject);
:   private
:     { Private declarations }
:   public
:     { Public declarations }
:   end;
:
: var
:   Form1: TForm1;
:
: implementation
:
: uses Unit2;
:
: {$R *.dfm}
:
: procedure TForm1.Button1Click(Sender: TObject);
: begin
:     Form := TForm.Create(Panel2);
:      Form2 := TForm2.Create(Panel2);
:      Form2.Parent :=Panel2;
:      Form2.Visible := true;
: end;
:
: end

네이트 사용하시면 wjsbest@nate.com 으로 친구추가해주세요...
아는부분은 알려드리겠습니다..