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; 시켰거든요?
그다음 폼을 띄울려면 안뜨네요..한번바께 안떠요..
알려주세요..급합니다..
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; 시켰거든요?
>
> 그다음 폼을 띄울려면 안뜨네요..한번바께 안떠요..
>
> 알려주세요..급합니다..