Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.09.2010, 08:34   #11
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
и пока дойдёт до обработки результата модального окна, оно светится, вот так.
Это как? в каком событии и какого рода эта твоя обработка?
Покажи код, че гадать то на кизяках?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 13.09.2010, 09:48   #12
godlsd
Пользователь
 
Регистрация: 05.03.2010
Сообщений: 16
По умолчанию

Хех, большей был перерывчик.
Вот тдля новичков таких как я, чтобы работать с TModalResult, нужно включить в проэкт Controls, а чтобы вернуть результат функции, нужно сделать так
Код:
function ShowConnectionForm:TModalResult;stdcall;
begin
frmConnection:=TfrmConnection.Create(nil);
frmConnection.ShowModal;
ShowConnectionForm:=frmConnection.ModalResult; //<<<----- Вот так.
end;
Ну а теперь снова про баранов, вот мой проэкт(откомпиленый, в котором проявляется блымание окна).

А вот и решение проблемы:
Код:
begin
  Application.Initialize;
  //
  @ShowConnectionForm:=nil;
  hConnectionLib:=LoadLibrary('Connection.dll');
  if hConnectionLib >= 32 then
  begin
    @ShowConnectionForm:=GetProcAddress(hConnectionLib,'ShowConnectionForm');
    if @ShowConnectionForm <> nil
    then
    begin
      if(ShowConnectionForm=mrCancel)
      then
      begin
        Application.Terminate;
      end
      else
        Application.CreateForm(TGForm, GForm);
    end;
  end;
  //
  Application.Run;
end.

Последний раз редактировалось godlsd; 13.09.2010 в 10:12. Причина: Уря... получилось.
godlsd вне форума Ответить с цитированием
Старый 13.09.2010, 09:54   #13
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Код:
ShowConnectionForm:=frmConnection.ShowModal;
так помоему проще
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 13.09.2010, 10:00   #14
godlsd
Пользователь
 
Регистрация: 05.03.2010
Сообщений: 16
По умолчанию

Да, абсолютно согласен, спасибо=)
godlsd вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
закрытие чужого процесса Dimon Win Api 7 12.05.2010 12:01
[DLL] Загрузка и выгрузка dll в/из чужого процесса Человек_Борща Win Api 4 28.02.2010 17:47
Сбой обновления основного вайла, патч отменен. Сбой CRC основного файла. Naruto63 Помощь студентам 2 21.10.2009 20:28
Закрытие ветви процесса SauronX Win Api 2 07.02.2009 16:18
Удаление/закрытие процесса Djaconda Win Api 2 13.06.2008 13:11