![]() |
|
#1
|
||||
|
||||
![]() Здрасте...
у меня появлится вопрос...только не спрашивайте зачем мне это...вообщем надо...а то уже блин достали вопросами зачем это с др. форумов. Но факт остается фактом что ни кто пока не может ответить на этот вопрос... Вообщем так Каждое приложение имеет имя окна и класс например все приложения созданные в delphi имеет название класса TApplication, так вот как мне изменить это? на свое название класса например "My Class" думаю тот кто знает ответ тот блин настроящиий программер...т.к. уже на 5 форумах ни кто не мог дать ответ(((( [ iNewStar.Ru ] - Продам! Вопросы в ПМ |
#2
|
||||
|
||||
![]() Такое что-ли?
Код:
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} Type TMyApp = class(TApplication); Var MyApp: TMyApp; begin MyApp := TMyApp.Create(nil); MyApp.Initialize; MyApp.CreateForm(TForm1, Form1); MyApp.Run; end. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
||||
|
||||
![]() Цитата:
Не чел. не так(((( все ровно при компиляции выходит TApplication [ iNewStar.Ru ] - Продам! Вопросы в ПМ |
#4
|
||||
|
||||
![]() ![]() Вот вообщем скрин для общего понимания всего что я сказал думаю поможет Программа которая на скрине Windows Inspector (www.Sottnick.Narod.ru) [ iNewStar.Ru ] - Продам! Вопросы в ПМ |
#5
|
||||
|
||||
![]() Вот так:
1. Находишь в папке C:\Program Files\Borland\Delphi7\Source\Vcl файл Forms.pas и копируешь его в папку твоего проекта. 2. Открываешь этот файл и находишь описание метода TApplication.Create 3. Перед ним будет описание переменной WindowClass Код:
var WindowClass: TWndClass = ( style: 0; lpfnWndProc: @DefWindowProc; cbClsExtra: 0; cbWndExtra: 0; hInstance: 0; hIcon: 0; hCursor: 0; hbrBackground: 0; lpszMenuName: nil; lpszClassName: 'TApplication'); Чтобы узнать имя класса приложения можешь использовать код: Код:
procedure TForm1.Button1Click(Sender: TObject); var cname:PAnsiChar; begin GetMem(cname,MAX_PATH); if GetClassName(Application.Handle,cname,MAX_PATH) <> 0 then ShowMessage(String(cname)); FreeMem(cname,MAX_PATH); end; Велик и могуч наш Object Pascal ! ICQ: 357-591-887 |
#6
|
||||
|
||||
![]() Rokuell Чел большое спасибо...помог...Ты реальный прогер!))
[ iNewStar.Ru ] - Продам! Вопросы в ПМ |
#7
|
||||
|
||||
![]() Rokuell Чел большое спасибо...помог...Ты реальный прогер!))
[ iNewStar.Ru ] - Продам! Вопросы в ПМ |