TcpServerAccept и frmFile.ShowModal

← →
VirEx(work) (2010-05-21 10:58) [0]

есть две формы: главная 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(work) (2010-05-21 12:41) [1]

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

← →
kernel © (2010-05-21 15:33) [2]

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

← →
kernel © (2010-05-21 15:35) [3]

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

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

← →
_VirEx_ (2010-05-21 21:38) [4]

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

TcpServerAccept и frmFile.ShowModal Найти похожие ветки