Текущий архив: 2009.05.17;
Скачать: CL | DM;

Вниз

Изменение класса окна   Найти похожие ветки 

← →
Nucer   (2009-04-02 22:19) [0]

Можно ли как-нибудь изменить имя класса окна собственного приложения, которое можно получить функцией GetClassName, во время исполнения?
К примеру, у меня имя объекта окна - MainForm, класс TMainForm. Можно ли менять это имя на какое-либо случайное при запуске программы? Чтобы функция GetClassName возвращало уже это новое имя.

---

← →
Игорь Шевченко ©   (2009-04-03 00:32) [1]

нет

---

← →
Германн ©   (2009-04-03 01:20) [2]

> Можно ли менять это имя на какое-либо случайное при запуске
> программы? Чтобы функция GetClassName возвращало уже это
> новое имя.

Что-то сегодня многих тянет на "желание странного".

---

← →
DVM ©   (2009-04-03 01:35) [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 CreateParams(Params);
 Params.WindowClass.lpszClassName := "12345";
 Params.WinClassName := "12345";
end;

end.

вместо 12345 соответственно все что угодно

---

Страницы: 1 вся ветка

Текущий архив: 2009.05.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.011 c