登录窗口不是系统主窗口 但又需要最先显示 用delphi怎么编写代

2021-04-26 15:36

阅读:348

标签:button   app   ati   edit   else   .text   窗体   需要   ica   

主窗体FormShow事件(主窗体为Form1为例,Form2为登陆窗体)  
procedure TForm1.FormShow(Sender: TObject);
begin
  if Form2.ShowModal=mrOk then
  begin
    Form2.Close;
  end
  else
    Application.Terminate;
end;

登陆窗的通过验证  

procedure TForm2.Button1Click(Sender: TObject);
begin
  if Edit1.Text = 通过 then
    Form2.ModalResult := mrOk
end;

登录窗口不是系统主窗口 但又需要最先显示 用delphi怎么编写代

标签:button   app   ati   edit   else   .text   窗体   需要   ica   

原文地址:http://www.cnblogs.com/jijm123/p/7881024.html


评论


亲,登录后才可以留言!