为何我在以前的主程序上加入一个时钟控件后，运行时可视化界面老是空白from的运行界面。(10分)

为什么？谢了。

不太明白什么意思？？？

在程序的适当地方将程序控制权交给系统
application.processmessages();

gz

我刚开始学，能说详细一点吗？我是说加入后那些可视控件在运行时全全都没有显示。

时钟控件是不可显示的！

唉 时钟控件Timer是不可视控件 运行时当然看不到了[]

对不起，我没有说清楚，我加入的是一个日历控件，关键所有的控件都不见了。如工具栏上的那些文件、编辑、工资、还有其它的都不见了。谢了。

运行时出现的就是一个空白窗体。什么东西都没有了。

你的程序进入了死循环。

我刚发现不加控件，运行时也会出现这个情况。我只是把用MDI创建的主程序把西文改
成了中文，并加入了两个栏目；运行时就出现了一个空白窗体。

贴出你的代码！！！[]

好的，代码如下：
unit MAIN;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
ActnList, ToolWin, ImgList;

type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
FileNewItem: TMenuItem;
FileOpenItem: TMenuItem;
FileCloseItem: TMenuItem;
Window1: TMenuItem;
Help1: TMenuItem;
N100: TMenuItem;
FileExitItem: TMenuItem;
WindowCascadeItem: TMenuItem;
WindowTileItem: TMenuItem;
HelpAboutItem: TMenuItem;
OpenDialog: TOpenDialog;
FileSaveItem: TMenuItem;
FileSaveAsItem: TMenuItem;
Edit1: TMenuItem;
CutItem: TMenuItem;
CopyItem: TMenuItem;
PasteItem: TMenuItem;
WindowMinimizeItem: TMenuItem;
StatusBar: TStatusBar;
ActionList1: TActionList;
EditCut1: TEditCut;
EditCopy1: TEditCopy;
EditPaste1: TEditPaste;
FileNew1: TAction;
FileSave1: TAction;
FileExit1: TAction;
FileOpen1: TAction;
FileSaveAs1: TAction;
WindowCascade1: TWindowCascade;
WindowTileHorizontal1: TWindowTileHorizontal;
WindowArrangeAll1: TWindowArrange;
WindowMinimizeAll1: TWindowMinimizeAll;
HelpAbout1: TAction;
FileClose1: TWindowClose;
WindowTileVertical1: TWindowTileVertical;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton9: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ImageList1: TImageList;
Item_Print: TMenuItem;
Item_PrintSetup: TMenuItem;
Item_Backup: TMenuItem;
Item_Restore: TMenuItem;
S1: TMenuItem;
O1: TMenuItem;
N1: TMenuItem;
S2: TMenuItem;
M1: TMenuItem;
G1: TMenuItem;
O2: TMenuItem;
Item_UseSet: TMenuItem;
Item_ModPass: TMenuItem;
N2: TMenuItem;
ArrangeAll1: TMenuItem;
Item_ToolBar: TMenuItem;
Item_StatusBar: TMenuItem;
Item_Help: TMenuItem;
DateTimePicker1: TDateTimePicker;
procedure FileNew1Execute(Sender: TObject);
procedure FileOpen1Execute(Sender: TObject);
procedure HelpAbout1Execute(Sender: TObject);
procedure FileExit1Execute(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure CreateMDIChild(const Name: string);
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

{$R *.dfm}

uses CHILDWIN, about;

procedure TMainForm.CreateMDIChild(const Name: string);
var
Child: TMDIChild;
begin
{ create a new MDI child window }
Child := TMDIChild.Create(Application);
Child.Caption := Name;
if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
end;

procedure TMainForm.FileNew1Execute(Sender: TObject);
begin
CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));
end;

procedure TMainForm.FileOpen1Execute(Sender: TObject);
begin
if OpenDialog.Execute then
CreateMDIChild(OpenDialog.FileName);
end;

procedure TMainForm.HelpAbout1Execute(Sender: TObject);
begin
AboutBox.ShowModal;
end;

procedure TMainForm.FileExit1Execute(Sender: TObject);
begin
Close;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin

end;

end.
还有一个文件的代码：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

end.



谢了。真的。

To:wlx 代码没问题 不过你的具体描述我还是不清楚 你有QQ吗 我的是3140223 验证:dfw

谢了。