var
style : LongInt;
QuickHWND : HWND;
begin
QuickHWND := FindWindow('TQRStandardPreview', nil);
if QuickHWND <> 0 then
begin
style := GetWindowLong(QuickHWND, GWL_STYLE);
style:= style and (not WS_MINIMIZEBOX); //최소화 버튼 못쓰게 만들기
SetWindowLong(QuickHWND, GWL_STYLE, style);
SendMessage(QuickHWND, WM_SETREDRAW,1,0);
RedrawWindow(QuickHWND, nil, 0, RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN);
end;
end;
퀵리포트의 NeedData 이벤트에 아래처럼 기술해보세요.
아마도 최소화버튼이 Disable 될겁니다.
그럼~ 항상 즐거운 프로그래밍 하시길~~
var
style : LongInt;
QuickHWND : HWND;
begin
QuickHWND := FindWindow('TQRStandardPreview', nil);
if QuickHWND <> 0 then
begin
style := GetWindowLong(QuickHWND, GWL_STYLE);
style:= style and (not WS_MINIMIZEBOX); //최소화 버튼 못쓰게 만들기
SetWindowLong(QuickHWND, GWL_STYLE, style);
SendMessage(QuickHWND, WM_SETREDRAW,1,0);
RedrawWindow(QuickHWND, nil, 0, RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN);
end;
end;