看流星社区

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

[Delphi] delphi 让窗口的类别名为空!

[复制链接]

该用户从未签到

发表于 2014-3-27 01:19:30 | 显示全部楼层 |阅读模式
delphi 让窗口的类别名为空!

[hide]  
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons;

type
  TForm1 = class(TForm)
  .......
  private
    procedure CreateParams(var Parames: TCreateParams);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.CreateParams(var Parames: TCreateParams);
var // 生成空类别名
  Str: string;
  ca: array [0 .. 63] of Char;
  i: integer;
begin
  inherited CreateParams(Parames);
  Str := #10;
  StrPCopy(ca, Str);
  for i := 0 to 63 do
    Parames.WinClassName[i] := ca[i];
end;

[/hide]

该用户从未签到

发表于 2015-7-18 11:20:26 | 显示全部楼层
此帖仅作者可见
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

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

GMT+8, 2024-3-29 18:35

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

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