[Delphi] 창 을 최대 화 할 때 작업 표시 줄 을 가리 지 않 는 방법

659 단어 shell과업Delphi
방법 1:
    전체 화면 에 표시 할 창의 ALign 속성 을 alClient 로 설정 하 는 것 이 가장 빠 릅 니 다.
    주의해 야 할 것 은 창 WindowStat 을 wsNormal 로 설정 하고 wsMax 로 설정 하면 일부 가 가 려 집 니 다.
방법 2: 코드 로 제어 합 니 다.창 생 성 이벤트 에서 (이 방법 이 실행 되면 창 도 이동 할 수 있 습 니 다. 미관 에 영향 을 줍 니 다. 창 이동 을 금지 하 는 코드 를 추가 해 야 합 니 다) 기록 합 니 다.
var
    TrayWnd :  HWnd;   //任务栏句柄
    Rec : TRect;
begin
TrayWnd := FindWindow('Shell_TrayWnd',nil);//得到任务栏句柄
GetWindowRect(TrayWnd,Rec);          //获取任务栏尺寸
mainfm .Left :=0;
mainfm .top:=0;
mainfm .Width :=Screen .Width ;
mainfm .Height :=Screen .Height-(rec.Bottom- rec.Top) ;

이렇게 해서 전체 화면 이 작업 표시 줄 을 막 지 않 는 것 도 실현 되 었 다.

좋은 웹페이지 즐겨찾기