2个delphi 小问题

Question

新学delphi 建立了一个 应用 只有一个 form1 窗口1 运行程序时候 ，希望这个form1 不可见 
我在窗口属性里面  visible 改成 false 不起作用，依然窗口是显示的
我再 窗口的 打开事件中 写入  procedure TForm1.FormCreate(Sender: TObject);   begin
Visible:=false;
        
end;一样不起作用，窗口依然显示 请教各位高手 如何让这个窗口不可见呢？2  这个窗口上面有2个按钮   
button1  和button2 
button1 是点一下关闭窗口按钮的代码procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;
button2 是接受外部参数，然后关闭窗口和该程序 
procedure TForm1.Button2Click(Sender: TObject);
var     sFileName:   string;
begin
       sFileName   :=   ParamStr(1); 
       edit5.text :=     copy(sFileName,1,12)   ;
        button1.click;
end;结果   button1.click;  这行没有执行，也就是不能关闭窗口和程序 
我改成 close ; 都不行 请问高手该怎么写呢？
不好意思 谢谢了

Answer 1

把 implementation  上面部分貼出來看下。
另外窗體隱藏可以用  Hide;

Answer 2

1、
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  form1.hide;        
end; 2、
procedure TForm1.Button2Click(Sender: TObject); 
var    sFileName:  string; 
begin 
      sFileName  :=  ParamStr(1); 
      edit5.text :=    copy(sFileName,1,12)  ; 
     application.Terminate;//为什么传入参数后，把程序关闭，
     //form1.close;//还只是关闭一个窗口?
end; 

Answer 3

第一个,修改dpr档第二个,在onclose事件加 action:=cafree; 试试

Answer 4

[Quote=引用 2 楼 de410 的回复:]
1、 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  form1.hide;        
end; 
我用了没隐藏啊？2楼的试过了？

Answer 5

一.
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm := False;//加上这句
  Application.Run;

Answer 6

记得哪本书上说过可以显示APPLICATION窗口，隐藏主窗口（好象是Mastering delphi3这本书，说是窗体和窗口的区别，忘了、、、、）

Answer 7

说的不错，只能在程序启动后，再隐藏~~
procedure TForm1..Button1Click(Sender: TObject);
begin 
  form1.hide;        
end; 

Answer 8

多谢各位朋友的帮忙，我都试过了 说的不错，只能在程序启动后，再隐藏~~ 
procedure TForm1..Button1Click(Sender: TObject); 
begin 
  form1.hide;        
end; 也试过了 都不行 奇怪能否帮我看看 这个demo delphi7 的 很简单的 就这些要求而已http://219.132.154.13/demo.rar   (测试代码而已 无exe)看看到底问题出在哪里？

Answer 9

隐藏主程序窗体，必须在FormShow之后！无论
 Form.Hide; 
 Form.visible := False;
 Application.ShowMainForm := False;都隐藏不了主窗体！因为以上方法，都必须在主窗体的FormShow之后调用才有效。 

Answer 10

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm := False;
  Application.Run;Form1的visible设为True(默认),这样可以的（和帮助说的相反）
Xp3+delphi7

Answer 11

你得代码我试过了,
第一个问题,前面已经说过了,可以在单元文件总加Application.ShowMainForm := False; 
第二个问题,正常,没有你说的不执行的问题