Скачать: CL | DM;

Перетаскиваю из экзешника форму(модальный диалог) в дэлэлэ.   Найти похожие ветки 

← →
Yttrium ©   (2003-02-06 01:38) [0]

Тут такие препятствия!!!
Надо чтоб тот диалог ссылался на TIniFile в главной форме.

Почему непрокатывает если функцию объявить примерно так(in DLL):

function DlgList(varINI:TIniFile): Boolean;
begin
with TFormList.Create(nil) do
begin
ini := varini; //ini - переменная в TFormList
Result := (ShowModal = 1);
free;
end;
end;

Точнее прокатывает но после тогого как несколько раз пощёлкаешь в TFormList по TListBox, в обработчике которого идёт обращение к TIniFile каждый Click, желаемый эффект пропадает! Вылетает ошибка "Access violation at address 00401E43 in module "MyINI.EXE". Write of address 02571574". Была бы это хотя бы предвиденная ошибка я бы кинулся отловить ёё, дело в том что всё работало в составе EXE лучше некуда.

Мож я непонемаю как правильно передать процедуре экземпляр класса!!!
Я незнаю как правильно передать процедуре экземпляр класса!!!

И ёщё диалог имеет свою кнопульку на ТаскБаре, как я нестарался - ну скрыл, при возврате из другого приложения ни в какую нехочет окно на передний план выползать.

Какже быть?
ЗЫ Где-то видел какойто креньдель конструктору подсунул Application, т.е. TFormXXXX.Create(Application), откуда он в DLL взял Application????

---

← →
Nick_N_A ©   (2003-02-06 05:23) [1]

Несовсем понятна задача.
Перемещение окна:
ReleaseCapture;
SendMessage(Handle,WM_SYSCOMMAND,WM_MOVE+2,0);

---

← →
Yttrium ©   (2003-02-08 03:27) [2]

Здесь слово "перетаскиваю" означает не буквально физический захват мышью с последующим перемещением, а значит процесс модификации алгоритма, позволяющий вызвать конструктор формы, через экспортируемую функцию DLL, которой так же передаются некоторые параметры.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c