이프리뉴 님이 쓰신 글 :
: 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