Q&A

  • 창 두번 이상 뜨지 않게하는 방법???
TestFrm := TTestFrm.Create(Self);
TestFrm.Show;

이렇게 해서요...
버튼을 눌러 창을 띄웠는데.. 그 버튼을 또 눌렀을 경우 그창이 안뜨게 하고픈데요.. 그러니까 한번 이상 창을 띄우고 싶지 않거든요...
그창이 없어지기 전엔 창을 한번 이상 안뜨게 하고싶습니다.

그방법에 대해 알려주세요...
이 게시물을
2  COMMENTS
  • Profile
    최용일 • 2002.05.08 02:46
    안녕하세요. 최용일입니다.

    방법이야 수없이 많이 있지만... 아래와 같이 해보세요...

    var
        Found: Boolean;
        Index: Integer;
    begin
        Found := False;
        for Index := 0 to Screen.FormCount - 1 do
            if Screen.Forms[Index] is TTestFrm then
                Found := True;

        if not Found then
            TestFrm := TTestFrm.Create(Self);
        TestFrm.Show;
    end;

    ^^ 항상 즐코하세요...

  • Profile
    홍성락 • 2002.05.08 02:37

    hsr/////////////////////////////////////////////////
    assigned로 포인터 존재여부확인후 Create해보세요
    if not(assigned(TestFrm)) then
         TestFrm := TTestFrm.Create(Self);
    TestFrm.Show;
←First Page
1028 1029 1030 1031 1032 1033 1034 1035 1036 1037
Last Page→
한델 로그인 하기