Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Показать нужную форму по имени класса

Delphi , Компоненты и Классы , Классы

Показать нужную форму по имени класса

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
Mцchten Sie z.B einen Formular mit einer Prozedure initialisieren bzw. 
anzeigen ohne Type-informationen oder classreferenzen ьbergeben zu mьssen? 
Dies geht sowohl im Programmcode als auch zur Laufzeit. 

Dabei gilt z.B.: bei Formulare werden die von Delphi angelegten globalen 
Variablen bzw. die automatische Erzeugung im Hauptprogramm ьberflьssig: 

Die Anbindung der Units und die RegisterClasses(...) sind notwendig!!! 
}

 { 
You may wish to initialise some descendant of a given class (runtime / 
designtime) using a simple procedure but without passing Type 
information of a specified class to it and thus stay flexible ? 

You can deal with the global variable of your forms as you wish, 
you'll never need them again... 

You just need to bind your form units and to register your classes 
(Delphi won't, if you delete the global vars). 
}


 uses
 MyFormOne, MyFormTwo;

 procedure ShowOneOfMyForm(FormClassName: string);
 begin
 with TFormClass(FindClass(FormClassName)).Create(Application) do
 try
 ShowModal;
 finally
 Free;
 end;
 end;

 { Geben Sie z.B. "TMyFormTwo" in dem TEdit und clicken Sie auf dem Knopf }
 { How to use it? Give "TMyFormTwo" in a TEdit and click the TButton...}

 procedure TForm1.btShowMyFormClick(Sender: TObject);
 begin
 //at runtime 
ShowOneOfMyForm(InputEdit.Text);
 // or directly in your code 
ShowOneOfMyForm('TMyFormOneF');
 end;

 initialization
 RegisterClasses([TMyFormOneF, TMyFormTwoF]);
 end.

Статья Показать нужную форму по имени класса раздела Компоненты и Классы Классы может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Классы ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
21.01.2022 15:23:42/0.0010068416595459/0