안녕하세요. 최용일입니다.



그냥 간단하게 변수하나 선언해서 판단하세요...



TForm1 = class(TForm)

procedure FormActivate(Sender: TObject);

procedure FormCreate(Sender: TObject);

public

FirstShow: LongBool;

end;



procedure TForm1.FormActivate(Sender: TObject);

begin

if FirstShow then

begin

FirstShow := False;

if LoginForm.ShowModal = mrOK then

begin

Form3.Show;

Form4.Show;

Form5.Show;

end;

end;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

FirstShow := True;

end;





고수가 되길 바라며 wrote:

> 메인폼과 로그인폼(fsnormal, visible := false)을 동시에 보이게하려고 메인폼의 onactivate에 로그인폼을 모달로 보이게 하고 로그인한 후에 3, 4 , 5번 화면을 불러오니까 한 개 화면을 닫을때 마다 로그인 폼이 다시 보이게 됩니다. 3, 4, 5화면은 모달리스로 보이게 했습니다.

>

> 메인폼과 로그인폼이 동시에 보이고 로그인한후에는 3, 4, 5번 화면이 모달리스로 보이고, 로그인 폼을 다시 부르기전에는 안 보이게 하는 방법은 어떤 것인지 부탁드립니다

최 용일님 정말 감사합니다.

어떻게 할까라고 생각은 가물가물 나는데 막상 구형하려면 어렵더군요. 헬프를 봐도 잘 이용할줄을 모르겠고...

님 덕에 쉽게 해결했습니다.



> TForm1 = class(TForm)

> procedure FormActivate(Sender: TObject);

> procedure FormCreate(Sender: TObject);

> public

> FirstShow: LongBool;

> end;

>

> procedure TForm1.FormActivate(Sender: TObject);

> begin

> if FirstShow then

> begin

> FirstShow := False;

> LoginForm.ShowModal;

> end;

> end;

>

> procedure TForm1.FormCreate(Sender: TObject);

> begin

> FirstShow := True;

> end;

>

로 작성하여 해결했습니다.

정말 감사합니다.

>

> 고수가 되길 바라며 prosit wrote: