![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Можно ли переименовать класс окна?
Tack © (2008-08-13 21:43:00)Есть ли возможность на ходу переименовать класс окна приложения (который отображается в Spy++)? По умолчанию в делфи-программах класс окна соответствует имени Delphi-класса. А нужно, чтобы окно TForm1 показывалось в инспекторе как MYWINDOWCLASS например. Если возможно, то подскажите как.
Германн (2008-08-14 00:40:00) [1]
> Tack © (14.08.08 00:13) [2]
>
>
А причем тут инспектор?
Tack (2008-08-14 00:13:00) [2]большое спасибо
DVM (2008-08-13 22:12:00) [3]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure CreateParams(var Params: TCreateParams); override;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WinClassName := 'MYWINDOWCLASS';
end;
end.