zoukankan      html  css  js  c++  java
  • [代码]Delphi实现窗体始终前台显示且获得焦点

    之前想利用窗体的OnActivate和OnDeactive事件对窗体进行强行置顶并设置焦点,接着就发现窗体的 Form.Active 属性并不靠谱,无法准确的得到窗体是否得到焦点。

    既然这样,索性利用Timer定时,每隔一段时间就对窗体去激活+置顶+激活+设置焦点,实践证明效果良好。

    窗体始终前台显示且获得焦点

    新建窗体,放置一个文本框 edt1,再放置一个Timer控件 tmr1,代码如下:

    unit frmTestTopWindow;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls;
    
    type
      TForm1 = class(TForm)
        edt1: TEdit;
        tmr1: TTimer;
        procedure tmr1Timer(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
    
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      FormStyle := fsStayOnTop;                             // 窗口置顶
      tmr1.Interval := 1000;                                // 每隔200ms处理一次
      tmr1.Enabled := True;                                 // 启动Timer
    end;
    
    procedure TForm1.tmr1Timer(Sender: TObject);
    begin
      Self.Deactivate;                                      // 去激活窗体
      SetForegroundWindow(Handle);                          // 将窗体置顶
      Self.Activate;                                        // 激活窗体
      edt1.SetFocus;                                        // Edit获得焦点
    end;
    
    end.

    程序运行后,窗体始终置顶显示,文本框始终获得焦点,键盘输入内容全在文本框内显示。

  • 相关阅读:
    PHP userAgent解析 PHP
    VB 2 C# 语法对比图
    HTML特殊字符数据库读写处理
    备份数据库
    Rose建模初步 [来自:UMLChina]
    ASP下的二级联动(XML方式)
    VSS使用手册
    管理项目的好助手——VSS入门
    【转】VB.NET的阳历与农历转换的算法
    GIF, JPEG和PNG
  • 原文地址:https://www.cnblogs.com/journeyonmyway/p/2111710.html
Copyright © 2011-2022 走看看