- 注册时间
- 2014-2-27
- 最后登录
- 1970-1-1
该用户从未签到
|
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] |
|