文档章节

TScreen 类 - 判断当前焦点在哪个窗体上

涂孟超
 涂孟超
发布于 2014/09/26 15:31
字数 104
阅读 9
收藏 0
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2; {本例还包含另一个窗体 Form2}


//标题显示当前窗体的类名
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Text := Screen.ActiveForm.ClassName;
end;

//激活另一个窗体一试
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/01/22/1048937.html

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Winform 对多个按钮相同热键时的处理

在Winform中我们可以通过在按钮的名称上使用&来给按钮设置热键。但是如果多个按钮有相同的热键时会发生什么呢?我们来做个实验。 我们放三个按钮并设置同样的热键,然后在每个按钮的处理函数...

arthurshan
2013/07/24
0
0
用Winform实现屏幕小键盘

前几天碰到一个问题,需要使用Winform实现屏幕小键盘,研究了一下,有一个自认为比较完美的解决方案。 屏幕小键盘的实现方式很简单,无非就是在窗体上加上几个按钮,然后在鼠标的点击事件里使...

技术小美
2017/11/12
0
0
​WinHotKey 工具使用笔记

一、WinHotKey 简介 WinHotKey 是一个管理 Windows 系统热键的工具。支持自定义新的热键,功能虽没有 AutoHotKey 工具强大,但易学易用。WinHotKey 的下载地址: http://www.softpedia.com/g...

北风其凉
2016/04/23
555
0
学习: Delphi FireMonkey 结构性初略分析

Delphi 下的FireMonkey,很好地实现了 DirectUI与跨平台。学习了解他,对DirectUI编程及项目的跨平台实现有一定帮助。 虽然作为开发者个体,并不需要了解太多这些东西,只要求拿来能用能实现...

iSixther
2014/12/27
2.4K
4
WPF 利用键盘钩子来捕获键盘,做一些不为人知的事情...完整实例

原文:WPF 利用键盘钩子来捕获键盘,做一些不为人知的事情...完整实例 键盘钩子是一种可以监控键盘操作的指令。 看到这句话是不是觉得其实键盘钩子可以做很多事情. 场景 当你的程序需要一个全局...

杰克.陈
2018/10/22
0
0

没有更多内容

加载失败,请刷新页面

加载更多

查看线上日志常用命令

cat 命令(文本输出命令) 通常查找出错误日志 cat error.log | grep 'nick' , 这时候我们要输出当前这个日志的前后几行: 显示file文件里匹配nick那行以及上下5行 cat error.log | grep -C ...

xiaolyuh
39分钟前
5
0
六、Java设计模式之工厂方法

工厂方法定义: 定义一个创建对象的接口,但让实现这个接口的类来决定实例化哪个类,工厂方法让类的实例化推迟到子类中进行 类型:创建型 工厂方法-使用场景: 创建对象需要大量重复的代码 ...

东风破2019
45分钟前
5
0
win服务器管理遇到的一系列问题记录

有些小伙伴在使用iis7远程桌面管理工具的时候总是会遇到一系列的问题,下面就是为大家介绍一下服务器日常管理过程中出现的问题及我的解决办法和心得。希望能帮到大家。   拒绝服务器重新启...

1717197346
52分钟前
6
0
flutter 剪切板 复制粘贴

复制粘贴功能 import 'package:flutter/services.dart'; Clipboard.setData(ClipboardData(text:_text));Clipboard.getData;...

zdglf
55分钟前
4
0
如何保证消息的可靠性传输?或者说,如何处理消息丢失的问题?

面试题 如何保证消息的可靠性传输?或者说,如何处理消息丢失的问题? 面试官心理分析 这个是肯定的,用 MQ 有个基本原则,就是数据不能多一条,也不能少一条,不能多,就是前面说的重复消费...

米兜
55分钟前
4
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部