如题!
还有就是,我想在程序运行后主界面出现之前能show一个form出来,能告诉我么?

解决方案 »

  1.   

    谢谢您的回复
    很对不起,由于事情比较急,我还没能详细看完一本delphi的入门书籍!
    能告诉我上面的要求能实现么?有人能给我讲讲么?
    谢谢了
      

  2.   

    要在FormCreate中结束程序可以:TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,GetCurrentProcess))或者PostQuitMessage(0)或者ExitProcess(0)个人推荐后者
      

  3.   

    to  Eastunfail(恶鱼杀手) 
    十分感谢您提供的帮助!
      

  4.   

    reallike(爱翔(只有lizzy可以叫其他人不能)) 
    不会就不要装蒜
    一边玩去~
      

  5.   

    嘿嘿,鳄鱼骗分呢。用结束进程的方式。用Vcl更简单,Application.Terminate等着吧,更弱智的问题接踵而至。
      

  6.   

    1、Application.Terminate
    2、工程之中写:
        Application.CreateForm(TFormMain,Formmain);
        Formain.Hide;
        Application.CreateForm(TForm1,Form1);
        Form1.ShowModal;
        Form1.Free;
        Formmain.show;
    //  do you know?
      

  7.   

    楼上的方法是传统用法, 其实还可以使用raise Exception.Create('...');异常来终止对象的创建.
      

  8.   

    to :reallike(爱翔(只有lizzy可以叫其他人不能)):
    仍然谢谢您的回复,因为你让我明白了 Eastunfail(恶鱼杀手) 是通过结束进程的方式来实现我的问题,而且一还告诉我了另外一个办法! 
    但是:请注意你的表达方式
        Eastunfail(恶鱼杀手) 帮我解决了我的问题,他并没有象你说的那样是‘骗’;
    一个问题能有很多的解决办法,能够解决的就是好办法。
        我个人认为“弱智”这个词语用在这里含贬义!
    我仍然对您的回复表示感谢
      

  9.   

    to :reallike(爱翔(只有lizzy可以叫其他人不能)):
    仍然谢谢您的回复,因为你让我明白了 Eastunfail(恶鱼杀手) 是通过结束进程的方式来实现我的问题,而且一还告诉我了另外一个办法! 
    但是:请注意你的表达方式
        Eastunfail(恶鱼杀手) 帮我解决了我的问题,他并没有象你说的那样是‘骗’;
    一个问题能有很多的解决办法,能够解决的就是好办法。
        我个人认为“弱智”这个词语用在这里含贬义!
    我仍然对您的回复表示感谢
      

  10.   

    哦,写错:
    application.halt;
      

  11.   

    呵呵,都是菜同学,别在这里装高手。
    建议同学你还是把入门的东西看完,如果都不知道怎么show一个新窗体,那你还怎么做以后的种种事件?
    相互学习。
      

  12.   

    PostMessage(self.handle, WM_CLOSE, 0, 0);
      

  13.   

    to DJ_KK(蓝色代码):
    您弄错了,虽然我不知道怎么更好的show一个窗体出来
    但是我还是想知道:如何在您的程序主界面的fromcreate事件里面show一个from出来!
    如果您知道的话,麻烦告诉我啊,十分感谢。
      

  14.   

    to cjfzy(他山之石,可以攻玉。) :
    谢谢您的帮助,我想问题基本上解决了
      

  15.   

    各位大侠,我也是一个delphi爱好者,我看过一本delphi初学者的书,可是却没有各位大侠将的这些,我现在还是看不懂以上写的一些东东,是不是我太笨了!还是,我学的太少了!
    可否给偶些建议啊!!!!^_^
      

  16.   

    重载create
      public
        constructor Create(AOwner: TComponent); override;
    constructor TForm1.Create(AOwner: TComponent);
    begin
      if  then
        inherited Create(AOwner)
      else
        application.Terminate;
    end;
      

  17.   

    hoho,解决办法好象挺多的嘛!
      

  18.   

    realike(爱翔),你为什么要进来?既然进来了就讲讲吧。呢曾经回答过我的问题,我知道你是高手,可是都是从低手过来的。你可以指点一下怎么去学,不要一棍子打死,把积极性打跑了。
      有人曾为我指点过一本书<<Delphi开发指南>>,我刚买了,建议初学者买一本。还有一本是《Programming Windows》这是realike(爱翔)同志给我们推荐的,我没有找到,希望realike(爱翔)说明白一点好吗?(是不是Windows 程序开发,具体的中文书名是什么?)