Создать форму

Автор Amfaromah, 09.04.09, 09:29:35

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

Amfaromah

возник такой вопрос как запихать форму? каждый раз как пытаюсь Delphi меня посылает далеко и надолго....что программно пытался, что так...

Prog2

Приведу пример из Билдера, но в Делфи всё по аналогии.
Например, Вы в дизайнере создали форму с именем Form1 класса TForm1. В точке входа можно написать такое (все проверки намеренно опустил для простоты):

extern "C" void __export __pascal LibraryEntry(unsigned int Comm )
{
   Application->CreateForm(__classid(TForm1), &Form1);
   Form1->ShowModal();
}


Ну и в заголовке подключить модуль формы:#include "Unit1.h"
+ Благодарностей: 1

yarikv


Цитата: Amfaromah от 09.04.09, 09:29:35
возник такой вопрос как запихать форму? каждый раз как пытаюсь Delphi меня посылает далеко и надолго....что программно пытался, что так...
iKompas:=KompasObject(CreateKompasObject);
  if iKompas=nil then Exit;
  Application.Handle:=iKompas.ksGetHWindow;
   Form:=TForm.Create(Application);
  Form.Show;