想写个函数，控制每个窗体大小，在窗体创建的时候调用这个函数，可是。。看里面(50分)

S

SevenOrient

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #1

procedure TForm1.test;
const
x:integer =100;
begin
x:= Form1.width;
end;
这个Form1怎么动态改变那？

 

B

Bxch_1000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #2

procedure Test(Sender: TObject);
begin
TForm(Sender).Width:=400;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Test(Sender);
end;

 

W

wally

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #3

Form1.width：＝400；

 

W

wangfu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #4

procedure SetFormStyle(Sender: TObject);
var
frm: TForm;
begin
frm := (Sender as TForm);

frm.Width := 400;
……
end;

然后再每个form.create时调用就是咯

 

S

SevenOrient

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #5

多人接受答案了。