A窗口消失B窗口弹出
一、设计窗口 1) file---new--Application,新建一个窗体,设置该窗体的属性:Caption==登录窗口 2) procedure TForm1.btn1Click(Sender: TObject); begin form2.show;//需要再建立一个form窗口用来作为登录正确后显示的窗体 Close; self.Hide; end;
人世间最宝贵的东西莫过于时间,一秒一秒地从我们身边滑过,却怎么也找不回来。人世间最悲哀的事,莫过于冷落身边对自己很好的人、爱你的人,远离挚爱难道一个陌生人会对你更好吗?人世间最痛心的事,莫过于把金钱看得比自己身体还重要,也许人没了,金钱却还在人世间流通。
一、设计窗口 1) file---new--Application,新建一个窗体,设置该窗体的属性:Caption==登录窗口 2) procedure TForm1.btn1Click(Sender: TObject); begin form2.show;//需要再建立一个form窗口用来作为登录正确后显示的窗体 Close; self.Hide; end;