動態產生的疑問

發文回覆瀏覽次數：709

推到 Plurk!

推到 Facebook!

尚未結案

alvin0921
一般會員

發表：7
回覆：7
積分：2
註冊：2004-02-16

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-05-14 19:17:15

IP:203.70.xxx.xxx 未訂閱

請問動態產生的 TFrom 可以正確讀出以下的值嗎?? Form2.Width; Form2.ClientWidth; Form2.Height; Form2.ClientHeight; 發現第一次讀到的值正常，但當 resize 後值就不正常了讀到的一直是原來的數值

jest0024
高階會員

發表：11
回覆：310
積分：224
註冊：2002-11-24

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-05-16 18:04:29

IP:203.67.xxx.xxx 未訂閱

引言: 請問動態產生的 TFrom 可以正確讀出以下的值嗎?? Form2.Width; Form2.ClientWidth; Form2.Height; Form2.ClientHeight; 發現第一次讀到的值正常，但當 resize 後值就不正常了讀到的一直是原來的數值

能!
var 
  Form2:TForm=nil;    procedure ButtonClick;
begin
  if(Form2=nil)then Form2:=TForm.Create(Self);
  Form2.Show;
  ListBox1.Items.Clear;
  ListBox1.Items.Add(Format('Width:%d',[Form2.Width]));
  ListBox1.Items.Add(Format('Height:%d',[Form2.Height]));
  ListBox1.Items.Add(Format('ClientWidth:%d',[Form2.ClientWidth]));
  ListBox1.Items.Add(Format('ClientHeight:%d',[Form2.ClientHeight]));
end;
如不行煩請貼上源碼44吧!!

學而時習之不亦樂乎!

系統時間：2024-06-26 23:16:46

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！