請問一下如何將視窗大小及位置固定不動呢? |
|
答題得分者是：wameng
|
|
tommyli0913
一般會員   發表：9 回覆：19 積分：5 註冊：2004-02-02 發送簡訊給我 |
|
|
wameng
版主  發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
事實上有很多方法可以做到： 例如：
1. 接管 WM_NCHITTEST 訊息。
2. 接管 WM_SYSCOMMAND 訊息。
3. 或者在 FORM.SHOW 重新定位。 以下示範用 WM_SYSTEMCOMMAND
type
TForm1 = class(TForm)
private
procedure ONSYSCOMMAND(Var Msg:TMessage);Message WM_SYSCOMMAND;
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.DFM} procedure TForm1.ONSYSCOMMAND(Var Msg:TMessage);
begin
Case MSg.WParam of
SC_MAXIMIZE,SC_MOVE,61441..61448,61458 :;
else inherited;
end;
end;
|
|
tommyli0913
一般會員 發表：9 回覆：19 積分：5 註冊：2004-02-02 發送簡訊給我 |
發表時間：2004-10-12 10:48:10
IP:211.76.xxx.xxx 未訂閱
系統時間：2024-06-26 22:02:20
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |