Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TcpServerAccept и frmFile.ShowModal [D7]


VirEx(work) ©   (2010-05-21 10:58:00) 

есть две формы: главная frmMain и дополнительная frmFile
весь код - в главной
на дополнительной форме есть TEdit (ePath) и две кнопки, в свойствах которых прописан ModalResult: mrOk и mrCancel соответственно

принимаю по сети файл, хочу вывести дополнительное окно как модальное, чтобы перед сохранением файла автоматически появлявлялась форма в которой можно указать путь (куда сохранить)

procedure TfrmMain.TcpServerAccept(Sender: TObject; ClientSocket: TCustomIpClient);
var
 data:TMemoryStream;
begin
...
if frmFile.ShowModal=mrOk then data.SaveToFile(frmFile.ePath.Text); //<- здесь ступор
...
end;

при выводе окна, оно не закрывается по кнопкам, компилятор зависает на условии

если же такое условие сделать например в событии выбора меню, то всё нормально обрабатывается

что делать?


_VirEx_   (2010-05-21 21:38:00) [1]

спасибо kernel
что-то сразу не додумался


kernel   (2010-05-21 15:35:00) [2]


> kernel ©   (21.05.10 15:33) [2]

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


kernel   (2010-05-21 15:33:00) [3]

Если я не ошибаюсь, обращение к VCL из события OnAccept запрещено.


VirEx(work)   (2010-05-21 12:41:00) [4]

плиз, помогите :(


Наверх

Титульная страница Поиск, карта сайта Написать письмо