看流星社区

 找回密码
 注册账号
查看: 3407|回复: 1

[Delphi] delphi如何修改窗体的类名呢?

[复制链接]

该用户从未签到

发表于 2011-3-30 08:50:39 | 显示全部楼层 |阅读模式
比如说窗体的类名是  TForm1  我怎么样才能修改呢?
哪位大大能举个例子么?

该用户从未签到

发表于 2011-3-30 08:50:51 | 显示全部楼层
重载createparam就行了

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure CreateParams(var Parames:TCreateParams);override;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  Name:array[0..MAXBYTE] of char;
begin
  GetClassName(Handle,Name,255);
  ShowMessage(Name);
end;

procedure TForm1.CreateParams(var Parames: TCreateParams);
begin
  inherited CreateParams(Parames);
  Parames.WinClassName:='your class name';
end;

end.
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-29 01:47

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表