Re: научите меня создавать форму

From

Igor Schevchenko ()

To

Mikhail Moskalenko ()

Date

2002-04-04T12:05:50Z

Area

RU.DELPHI

From: "Igor Schevchenko" <if@hypersoft.ru>

День добрый, "Mikhail Moskalenko"

>  >> Интересует вообще как создавать формы в runtime. То есть необходимо
>  >> при выполнении программы создать форму и несколько компонент на ней,
>
>  r> О, мосье тонкий извращенец? ;) Ну легко...
>  r> procedure TForm1.Button1Click(Sender: TObject);
>
> Отлично, это понятно. Но все же меня интересует не это. Решение вроде
> кроется в *createwindow*, но только я не могу понять как ей пользоваться.
> Проблема в том, что при создании формы методом frm:=TForm.Create(Self)
> необходимо использовать модуль Forms, а от этого размер файла растет, что
> является главным критерием. так как программа является резидентной.

Ты таких слов больше не говори, засмеют :-)

> Суть программы: она висит в памяти и выполняет некие операции. По вызову
> пользователя должно вывестись окно, где можно изменить пару настроек, а
затем
> убить это окно.
>

Ну да, именно TForm.Create тебе и поможет. Крайне простое решение.
Если хочешь сложное, то тебе надо использовать не CreateWindow,
а DialogBox, с загрузкой формы (диалога) из ресурса (не dfm, а rc
переведенный brcc в res).
После прочтения TFM ты поймешь, что TForm.Create все-таки проще.

С уважением, Игорь Шевченко


--- ifmail v.2.15dev5
 * Origin: Demos online service (2:5020/400)