全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1392
推到 Plurk!
推到 Facebook!

FORM怎么根据显示器分辨率自动调节大小?

答題得分者是:Zard
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-03-07 09:03:59 IP:218.80.xxx.xxx 未訂閱
FORM怎么根据显示器分辨率自动调节大小?
Zard
尊榮會員


發表:24
回覆:396
積分:539
註冊:2003-11-26

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-03-07 09:28:59 IP:211.23.xxx.xxx 未訂閱
引言: FORM怎么根据显示器分辨率自动调节大小?
可以利用SystemParametersInfo得到桌面大小(不包含工具列), 例如:
procedure TForm1.FormCreate(Sender: TObject);
var
  rect: TRECT;    begin
  SystemParametersInfo(SPI_GETWORKAREA, 0, @rect, 0);
  Left := rect.Left;
  Top := rect.Top;
  Width := rect.Right;
  Height := rect.Bottom;
end;
要取得全螢幕大小可以由 Screen.Width和Screen.Height 取得 發表人 - zard 於 2005/03/07 09:43:33
系統時間:2024-07-02 6:15:46
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!