delphi如何在form显示出来后处理指定的事件(例如自动登录)

最新推荐文章于 2021-04-26 22:44:54 发布

银河使者

最新推荐文章于 2021-04-26 22:44:54 发布

阅读量2.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi自动登录文章标签： delphi

本文链接：https://blog.youkuaiyun.com/zkrui2008/article/details/40511597

Delphi自动登录专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种在Delphi客户端中实现自动登录功能的方法。通过在Form的oncreate事件中读取用户配置，并在FormActivate事件中处理自动登录业务，使用自定义的消息传递机制来延迟加载登录数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

最近写一个delphi客户端，遇到一个自动登录问题,已经解决了思路如下：

1.在Form的oncreate事件中读取用户配置文件，检查及处理是否保存了用户密码，是否自动登录，如果需要自动登录，

自动登录前的checkbox打勾,用户名,密码放入

2.在Form的FormActivate事件中处理自动登录业务，因为这个activate事件发生于formshow出来之后

用这个windows函数发送消息： PostMessage(Handle, UM_CHECKFIRSTRUN, 0, 0);

定义自己的函数来捕获处理消息:

<span style="font-family:Microsoft YaHei;font-size:14px;">const
  UM_CHECKFIRSTRUN = WM_USER + 100;

 procedure UmCheckFirstRun(var Message: TMessage); message UM_CHECKFIRSTRUN;

procedure TForm1.UmCheckFirstRun(var Message: TMessage);
begin

 delay(1000);    //延迟一个时间,不然用户会很诧异
 readyLoginData;     //处理自动登录业务的方法
end;

</span>

<span style="font-family:Microsoft YaHei;font-size:14px;">
</span>

<span style="font-family:Microsoft YaHei;font-size:14px;">procedure TForm1.FormActivate(Sender: TObject);
begin
    //sleep(1000);
    PostMessage(Handle, UM_CHECKFIRSTRUN, 0, 0);
    
end;</span>

<span style="font-family:Microsoft YaHei;font-size:14px;">
//延迟指定时间
procedure delay(msecs:integer);
var
  Tick: DWord; 
  Event: THandle;


  begin
  Event := CreateEvent(nil, False, False, nil); 
  try
    Tick := GetTickCount + DWord(msecs); 
    while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <> WAIT_TIMEOUT) do
    begin
      Application.ProcessMessages; 
      msecs := Tick - GetTickcount; 
    end;
  finally
    CloseHandle(Event);
  end
  end;</span>