关于界面问题，请多指教！（如果分数不够可以再加）急！急！急！

[rqcong]

在程序的主画面，最上行是标题行，往下是菜单栏，再往下是工具栏。
在主画面上通过菜单栏调用的子画面不能覆盖主画面的标题栏、菜单栏及工具栏，
但同时，当子画面最大化时也不能覆盖主画面的标题栏、菜单栏及工具栏，
请各位高手指教。

[rqcong]

我再试验一下，
我下午给大家一个答复，如果不成功，还肯请大家给予帮助！
谢谢！

[rqcong]

谢谢大家的支持和帮助，即使没有答对的也有分！

[Comer]

我有一个childform的方法，不知道你试过没有。
我用过很多次的，能实现你要的东西！
unit ChildFrm;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls, Menus;

type

TChildForm = class(TForm)
private
FAsChild: Boolean;
FTempParent: TWinControl;
protected
procedure CreateParams(var Params: TCreateParams); override;
procedure Loaded; override;
public
constructor Create(AOwner: TComponent); overload; override;
constructor Create(AOwner: TComponent; AParent: TWinControl); reintroduce; overload;

// The method below must be overridden to return either the main menu
// of the form, or nil.
function GetFormMenu: TMainMenu; virtual; abstract;
function CanChange: Boolean; virtual;
end;

var
ChildForm: TChildForm;

implementation

{$R *.DFM}
constructor TChildForm.Create(AOwner: TComponent);
begin
FAsChild := False;
inherited Create(AOwner);
end;

constructor TChildForm.Create(AOwner: TComponent; AParent: TWinControl);
begin
FAsChild := True;
FTempParent := aParent;
inherited Create(AOwner);
end;

procedure TChildForm.Loaded;
begin
inherited;
if FAsChild then
begin
align := alClient;
BorderStyle := bsNone;
BorderIcons := [];
Parent := FTempParent;
Position := poDefault;
end;
end;

procedure TChildForm.CreateParams(var Params: TCreateParams);
Begin
Inherited CreateParams(Params);
if FAsChild then
Params.Style := Params.Style or WS_CHILD;
end;

function TChildForm.CanChange: Boolean;
begin
Result := True;
end;

end.

[MyCrooner]

大家都比较喜欢帮助人嘛

[rqcong]

因为我们都选择了ｄｅｌｐｈｉ，我们只有在互相帮助和支持下才能
使我们的友谊更加长远，同时也会使我们的技术更加精湛．
我愿把你们当做我的朋友，我的老师，在以后的学习中
给我支持和帮助，
谢谢！

[hgf_hb]

捡分
哥们可以这样的
把主窗体的formstyle=fsmdiform
子窗体=fsmdichild
也可以实现你要的效果

[rqcong]

谁能给我一个样程序，我将不胜感谢！
我的信箱是[e-mail]
如果谁能给我答案，我将单独给加分．
谢谢

[立志做一个佳娃~]

邦楼主UP一下，

[feng93017]

UP

[fadingman]

up too

[李_军]

我帮你把源代码发过来了

[rqcong]

谢谢
我现在就去取
最好是一个小程序

[slley]

Delphi--->project--->options--->forms--->auto-creatforms

[chenam]

mdi

[rqcong]

如何取得一个字符变量的值！
例如：将一个字符串赋是一个字符变量，然后再将这个字符变量取出来如何做？
name:='form1';
如何取出这个form值

[rqcong]

在主程序调用子程序时，将子程序的表单名赋给主程序的一个字符型的变量，
当主程序再调用其它子程序前将前一个子程序的表单关闭。


就是：var diao : string;

diao:='form1';
／／然后关闭form1
diao.close; //出现错误。

[DelphiStudy]

当然不行。
var
diao:Tform;或diao:Tform1;

diao:=Form1;
diao.close;

[李_军]

你给我发的程序，我已经给你改过了，重新发过来了

[李_军]

给分，在下面的一个框中输入分数，你给我的程序中，应该想把以前创建的窗体释放掉

[rqcong]

请问大家，我怎么给不了分，提示我总分不对？
如何解决？