![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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]плиз, помогите :(