Q&A

  • 퀵리포트 화면에서 최소화 버튼 비활성화 시키는법 아시는 분...
안녕하세요.



퀵리포트 화면에서 최소화 버튼을 누르면 최소화된 화면이 보이지가 않고 프로그램이 멎어 버리네요...



그래서 퀵 리포트 화면의 최소화 버튼을 죽이고 싶은데 방법을 아시는 분 계시나요?

form1.QuickRep1.Preview; --> 이런식으로 했구요.



아시는분 꼭좀 답변 바랍니다.

부탁드립니다.

그럼이만...

3  COMMENTS
  • Profile
    최용일 2001.06.09 12:11
    안녕하세요. 최용일입니다.



    폼에 타이머 하나 놓구 Interval은 300 ~ 1000정도 주고, Enabled은 False로해서 아래와 같이 코딩해보세요...



    // 타이머의 OnTimer이벤트

    procedure TForm1.Timer1Timer(Sender: TObject);

    var

    PreviewHandle: THandle;

    SysMenu: HMENU;

    begin

    PreviewHandle := FindWindow('TQRStandardPreview', 'Print Preview');

    if (PreviewHandle <> 0) then

    begin

    SysMenu := GetSystemMenu(PreviewHandle, False);

    DeleteMenu(SysMenu, SC_MINIMIZE, MF_BYCOMMAND);

    TTimer(Sender).Enabled := False;

    end;

    end;





    Timer1.Enabled := True;

    Form1.QuickRep1.Preview;



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



    초봉이 wrote:

    > 안녕하세요.

    >

    > 퀵리포트 화면에서 최소화 버튼을 누르면 최소화된 화면이 보이지가 않고 프로그램이 멎어 버리네요...

    >

    > 그래서 퀵 리포트 화면의 최소화 버튼을 죽이고 싶은데 방법을 아시는 분 계시나요?

    > form1.QuickRep1.Preview; --> 이런식으로 했구요.

    >

    > 아시는분 꼭좀 답변 바랍니다.

    > 부탁드립니다.

    > 그럼이만...

  • Profile
    초봉이 2001.06.09 23:00
    여기 게시판 답변글중에 최용일님 답변글이 가장 많은거 같네요...

    저같은 초보들에겐 아주 고마우신 분이죠...



    답변 감사드리구요.

    퀵리포트폼이 한개일때는 되는데 여러개 폼을 하나로 합쳐서 출력하는(이게 맞는지는 정확히 모르지만) QRCompositeReport 를 썼을때는 어떻게 해야 할지...

    한번더 부탁드릴께요...

    그럼 이만...





    최용일 wrote:

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

    >

    > 폼에 타이머 하나 놓구 Interval은 300 ~ 1000정도 주고, Enabled은 False로해서 아래와 같이 코딩해보세요...

    >

    > // 타이머의 OnTimer이벤트

    > procedure TForm1.Timer1Timer(Sender: TObject);

    > var

    > PreviewHandle: THandle;

    > SysMenu: HMENU;

    > begin

    > PreviewHandle := FindWindow('TQRStandardPreview', 'Print Preview');

    > if (PreviewHandle <> 0) then

    > begin

    > SysMenu := GetSystemMenu(PreviewHandle, False);

    > DeleteMenu(SysMenu, SC_MINIMIZE, MF_BYCOMMAND);

    > TTimer(Sender).Enabled := False;

    > end;

    > end;

    >

    >

    > Timer1.Enabled := True;

    > Form1.QuickRep1.Preview;

    >

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

    >

    > 초봉이 wrote:

    > > 안녕하세요.

    > >

    > > 퀵리포트 화면에서 최소화 버튼을 누르면 최소화된 화면이 보이지가 않고 프로그램이 멎어 버리네요...

    > >

    > > 그래서 퀵 리포트 화면의 최소화 버튼을 죽이고 싶은데 방법을 아시는 분 계시나요?

    > > form1.QuickRep1.Preview; --> 이런식으로 했구요.

    > >

    > > 아시는분 꼭좀 답변 바랍니다.

    > > 부탁드립니다.

    > > 그럼이만...

  • Profile
    최용일 2001.06.11 01:20
    델파이에 있는 SPY프로그램으로 찾아서 프리뷰의 클래스이름을 FindWindow의 인자에 넣어주세요. 두번째 인자는 윈도우캡션입니다.



    초봉이 wrote:

    > 여기 게시판 답변글중에 최용일님 답변글이 가장 많은거 같네요...

    > 저같은 초보들에겐 아주 고마우신 분이죠...

    >

    > 답변 감사드리구요.

    > 퀵리포트폼이 한개일때는 되는데 여러개 폼을 하나로 합쳐서 출력하는(이게 맞는지는 정확히 모르지만) QRCompositeReport 를 썼을때는 어떻게 해야 할지...

    > 한번더 부탁드릴께요...

    > 그럼 이만...

    >

    >

    > 최용일 wrote:

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

    > >

    > > 폼에 타이머 하나 놓구 Interval은 300 ~ 1000정도 주고, Enabled은 False로해서 아래와 같이 코딩해보세요...

    > >

    > > // 타이머의 OnTimer이벤트

    > > procedure TForm1.Timer1Timer(Sender: TObject);

    > > var

    > > PreviewHandle: THandle;

    > > SysMenu: HMENU;

    > > begin

    > > PreviewHandle := FindWindow('TQRStandardPreview', 'Print Preview');

    > > if (PreviewHandle <> 0) then

    > > begin

    > > SysMenu := GetSystemMenu(PreviewHandle, False);

    > > DeleteMenu(SysMenu, SC_MINIMIZE, MF_BYCOMMAND);

    > > TTimer(Sender).Enabled := False;

    > > end;

    > > end;

    > >

    > >

    > > Timer1.Enabled := True;

    > > Form1.QuickRep1.Preview;

    > >

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

    > >

    > > 초봉이 wrote:

    > > > 안녕하세요.

    > > >

    > > > 퀵리포트 화면에서 최소화 버튼을 누르면 최소화된 화면이 보이지가 않고 프로그램이 멎어 버리네요...

    > > >

    > > > 그래서 퀵 리포트 화면의 최소화 버튼을 죽이고 싶은데 방법을 아시는 분 계시나요?

    > > > form1.QuickRep1.Preview; --> 이런식으로 했구요.

    > > >

    > > > 아시는분 꼭좀 답변 바랍니다.

    > > > 부탁드립니다.

    > > > 그럼이만...