Feraset, ты мог бы сам найти в интернете то, что тебе нужно. По всему этому много чего написано.
Quote (Feraset)
Как подключить DataModule к форме.
Открываешь свой проект, затем нажимаешь в главном меню: File > New > Data Module.
Генерируется пустой модуль-контейнер и подключается к твоему проекту. По-умолчанию он автоматически создаётся после создания формы.
Подключается он только в коде самой программы, т.е. в Project1.dpr (чтобы посмотреть этот код, в главном меню выбери: Project > View Source).
Теперь ты можешь наполнить этот контейнер необходимыми компонентами. Выбираешь получившееся окошко DataModule, затем переносишь на него нужные компоненты с палитры компонентов. Доступны только невизуальные компоненты, типа таймера.
Теперь, чтобы воспользоваться этими компонентами из какого-нибудь модуля, нужно сделать следующее: в требуемом модуле (например, Unit1 с формой Form1), после строчки implementation вводишь "uses unit2;" (unit2 - имя data-модуля с компонентами), например:
Code
...
implementation //Раздел имплементации
uses unit2; //Подключаем модуль
{$R *.dfm}
procedure TForm1.FormClick(Sender: TObject); //Кликнули по форме
begin
//Запускаем таймер
unit2.DataModule2.Timer1.Enabled:=true;
end;
...
А чтобы получить доступ к форме из модуля-контейнера, нужно точно так же подключить модуль формы к этому модулю:
Code
...
implementation
uses unit1; //Подключаем модуль формы
{$R *.dfm}
procedure TDataModule2.Timer1Timer(Sender: TObject); //Событие срабатывания таймера
begin
//Обратились к форме Form1, чтобы изменить ей заголовок
unit1.Form1.Caption:='Таймер сработал!';
timer1.Enabled:=false; //И выключили таймер
end;
...
Преимущество тут только в том, что в дизайнере форм не будут мешаться лишние невизуальные компоненты, если их слишком много...
Ну ещё можно использовать компоненты этого контейнера из разных форм, однако эти формы легко можно подключить друг к другу тем же способом...
P.S. Учись называть экземпляры компонентов своими именами, типа MainFrm в модуле MainUnit и тому подобного... В автоматически пронумерованных компонентах легко запутаться... Это я так, на будущее...
