Api一个函数(100分)

N

nomad_heart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-26

• #1

//让窗体最大化、且没有边框<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>&nbsp; form1.BorderStyle:=bsnone;<br>&nbsp; DefWindowProc(Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0);<br>end;<br>结果：整个窗体充满整个屏幕，挡住了状态栏。<br>不想让它档住状态栏如何解决？

 

东

东兰梦舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-26

• #2

procedure TForm1.FormCreate(Sender: TObject);<br>begin<br>&nbsp; self.Constraints.MaxHeight := screen.WorkAreaHeight;<br>end;<br>

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-26

• #3

不错，可行。学习

 

N

nomad_heart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-26

• #4

可行，谢谢：）