如果你是指mdi的子窗口,那就用<br>procedure xxxClick(Sender: TObject);<br>begin<br> Tile;<br>end;<br><br>procedure xxxClick(Sender: TObject);<br>begin<br> TileMode:=tbVertical;<br> Tile;<br>end;<br><br>procedure xxxClick(Sender: TObject);<br>begin<br> Cascade;<br>end;<br>以此类推,试一下吧