文档章节

当前窗体

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 132
阅读 4
收藏 0

代码文件:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  form: TCustomForm;
begin
  form := Screen.ActiveForm;
  ShowMessage(form.Caption);

  form := GetParentForm(TControl(Sender));
  ShowMessage(form.Caption);
end;

end.

 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 150
  ClientWidth = 209
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 193
    Height = 129
    Caption = 'Panel1'
    TabOrder = 0
    object Button1: TButton
      Left = 56
      Top = 80
      Width = 75
      Height = 25
      Caption = 'Button1'
      TabOrder = 0
      OnClick = Button1Click
    end
  end
end

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/10/28/1321716.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
JavaScript窗体控制函数

moveBy 从当前位置水平移动窗体x个像素,垂直移动窗体y个像素,x为负数,将向左移动窗体,y为负数,将向上移动窗体 moveTo 移动窗体左上角到相对于屏幕左上角的(x,y)点,当使用负数做为参数时...

梵高
2011/08/14
0
0
C#语言FormClosing与FormClosed事件中Args参数的CloseReason枚举

我的操作系统是Win7旗舰版,VS版本是VS2012,.NET版本为.NET Framework 4.5。 在窗体的FormClosing事件,第二个参数(FormClosingEventArgs类型)下有一个枚举变量CloseReason,在窗体的For...

北风其凉
2016/07/13
1K
0
C#语言关于使用winform执行存储过程后如何刷新当前窗体?

本人是C#初学者,现在有个问题是当前窗体点击按钮执行存储过程后,当前窗体没有刷新,需要在当前代码的基础上加一些代码,使得存储过程执行后,刷新当前窗体,请问怎么做? 点击下图按钮,会...

非著名魔兽解说
2016/11/07
851
3
超链接 跳转 HTML:target=_blank

_blank -- 在新窗口中打开链接_parent -- 在父窗体中打开链接_self -- 在当前窗体打开链接,此为默认值_top -- 在当前窗体打开链接,并替换当前的整个窗体(框架页)一个对应的框架页的名称 --...

小鱼吃大鱼
2016/09/09
9
0
如果在BackgroundWorker运行过程中关闭窗体…

在Windows Form应用中,BackgroundWorker 类允许您在单独的专用线程上运行操作。耗时的操作(如下载和数据库事务)在长时间运行时可能会导致用户界面 (UI) 似乎处于停止响应状态。如果您需要...

长平狐
2012/09/04
116
0

没有更多内容

加载失败,请刷新页面

加载更多

oh-my-zsh 自定义

GitHub 地址 基于 oh-my-zsh 的自定义配置,增加了一些个人常用插件与皮肤。 采用的是 git submodule 来维护,包括 oh-my-zsh,之所以这么搞,主要是手头有多台 linux 需要维护, 每台机器、...

郁也风
今天
4
0
Docker安装踩坑:E_FAIL 0x80004005的解决

参考 菜鸟教程--Windows Docker 安装 http://www.runoob.com/docker/windows-docker-install.html 官方文档-Install Docker Toolbox on Windows https://docs.docker.com/toolbox/toolbox_in......

karma123
今天
4
0
js垃圾回收机制和引起内存泄漏的操作

JS的垃圾回收机制了解吗? Js具有自动垃圾回收机制。垃圾收集器会按照固定的时间间隔周期性的执行。 JS中最常见的垃圾回收方式是标记清除。 工作原理:是当变量进入环境时,将这个变量标记为“...

Jack088
昨天
17
0
大数据教程(10.1)倒排索引建立

前面博主介绍了sql中join功能的大数据实现,本节将继续为小伙伴们分享倒排索引的建立。 一、需求 在很多项目中,我们需要对我们的文档建立索引(如:论坛帖子);我们需要记录某个词在各个文...

em_aaron
昨天
27
0
"errcode": 41001, "errmsg": "access_token missing hint: [w.ILza05728877!]"

Postman获取微信小程序码的时候报错, errcode: 41001, errmsg: access_token missing hint 查看小程序开发api指南,原来access_token是直接当作parameter的(写在url之后),scene参数一定要...

两广总督bogang
昨天
31
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部