Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.01;
Скачать: CL | DM;

Вниз

Два вопроса про форму   Найти похожие ветки 

 
Интересующийся   (2007-03-06 06:45) [0]

Всем доброе время суток!

Помогите разобраться, плиз!

1. Как запретить возможность закрыть форму по "х"?

2. Как правильно вызвать форму из DLL

В теории:
Форма находится в DLL и вызфвается приложением в начале работы (реализовано при помощи функции).

После закрытия формы приложение получает необходимые пораметры и работает самостоятельно.

На практике:
1. После вызова формы и ее закрытия приложение прекращает свою работу или вызываемая форма продолжает вечеть на экране
2. Форма нормально закрывается и приложение продолжает свою работу, но при завершении самого приложения вылезает ошибка о неправильном обращении к адресу памяти.


 
Loginov Dmitry ©   (2007-03-06 07:42) [1]

Ответ на первый вопрос:

procedure TForm1.FormCreate(Sender: TObject);
var
 hMenuHandle: HMENU;
begin
 hMenuHandle := GetSystemMenu(Handle, false);
 if hMenuHandle <> 0 then
   DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);  
end;


Ответ на второй вопрос:

скомпилируй и ЕХЕ и DLL с пакетами.


 
Интересующийся   (2007-03-06 14:50) [2]

> Loginov Dmitry ©   (06.03.07 07:42) [1]

> Ответ на первый вопрос:

За ответ спасибо.

> Ответ на второй вопрос:
> скомпилируй и ЕХЕ и DLL с пакетами.

Сам разобрался (ЕХЕ и DLL здесь неприем).

P.S.
Неправильно работал с Applicattion в главной программе.... :(


 
ElectriC ©   (2007-03-07 16:40) [3]

1. CanClose := False;



Страницы: 1 вся ветка

Текущий архив: 2007.04.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.043 c
6-1160908176
root
2006-10-15 14:29
2007.04.01
как передать данные


11-1152408034
Scrage
2006-07-09 05:20
2007.04.01
KOL и MCK


6-1161165997
Dmitry_177
2006-10-18 14:06
2007.04.01
Организация клиент-сервера через интернет, IP-сервера


15-1173096896
Kerk
2007-03-05 15:14
2007.04.01
Федор Бондарчук снимает Обитаемый остров


2-1173007474
wolchonok29
2007-03-04 14:24
2007.04.01
Запуск приложения в сети