delphi高手看过来,窗口调用的问题!
请教各位大虾,小弟,正在学习delphi...
遇到一个问题,比如说我想用两个窗口,分别在上面放置一个按钮,程序运行的时候,点form1上的button,马上就把form2显示出来,点form2上的button又回到form1,请大虾们指点也下小弟吧!
参考答案:这个问题...如果是简单的两个窗体之间的显示隐藏,可以这样做(主窗体为form1):
在unit1中,添加unit2单元,在这里:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,unit2{你的form2单元名称}, StdCtrls;
button下的代码:
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Show;
form1.Hide;//控制form2显示时,form1是否隐藏
end;
在unit2中,也需要添加对unit1的引用,不过不可以在uses直接添加了,需要在实现部分添加:
var
Form2: TForm2;
implementation
uses unit1;//在次添加对form1单元的引用.
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);//form2中,button下的代码:
begin
form2.Close;
form1.Show;
end;
就是这么简答.
如果你是想做系统的登陆窗体,可以到我的空间里去看看这么做登陆模块: