Q&A

  • Form 의 생성이 한번만 되네요..
procedure TA_MainF.B_R101Click(Sender: TObject);

begin

Try

If B_Std0101BF.WindowState = wsMinimized Then

B_Std0101BF.WindowState := wsNormal;

B_Std0101BF.BringToFront;

Except

Application.CreateForm(TB_Std0101BF, B_Std0101BF);

// B_Std0101BF.Left := 0;

// B_Std0101BF.Top := 0;

B_Std0101BF.Show;

End;

end;



이런식으로 폼을 띄우고..



띄운폼에서 종료버튼으로 종료하면 close; 시켰거든요?



그다음 폼을 띄울려면 안뜨네요..한번바께 안떠요..



알려주세요..급합니다..

1  COMMENTS
  • Profile
    돌머리 2000.09.26 19:53
    안녕하세요. 김동원입니다.





    procedure TA_MainF.B_R101Click(Sender: TObject);

    begin

    if not Assigned(B_Std0101BF) then

    Application.CreateForm(TB_Std0101BF, B_Std0101BF);



    If B_Std0101BF.WindowState = wsMinimized Then

    B_Std0101BF.WindowState := wsNormal;



    B_Std0101BF.BringToFront;

    B_Std0101BF.Show;

    end;



    위의 방법을 사용해 보세요.

    현재의 소스를 그대로 사용하시려면

    B_Std0101BF.BringToFront; 아래에

    B_Std0101BF.Show;를 추가하시고요..



    도움이 되셨기를....







    안희준 wrote:

    > procedure TA_MainF.B_R101Click(Sender: TObject);

    > begin

    > Try

    > If B_Std0101BF.WindowState = wsMinimized Then

    > B_Std0101BF.WindowState := wsNormal;

    > B_Std0101BF.BringToFront;

    > Except

    > Application.CreateForm(TB_Std0101BF, B_Std0101BF);

    > // B_Std0101BF.Left := 0;

    > // B_Std0101BF.Top := 0;

    > B_Std0101BF.Show;

    > End;

    > end;

    >

    > 이런식으로 폼을 띄우고..

    >

    > 띄운폼에서 종료버튼으로 종료하면 close; 시켰거든요?

    >

    > 그다음 폼을 띄울려면 안뜨네요..한번바께 안떠요..

    >

    > 알려주세요..급합니다..