"Самоубийство" в runtime наследников НЕ TCustomForm.

← →
Maks Realov (2004-04-27 17:12) [0]

Здравствуйте.
У меня такая ситуация:
фреймы в ран тайме создаю и убиваю. Освобождаю я их imho коряво немного: из ф-ии обработчика нажатия на клавишу закрытия фрейма посылаю асинхронное сообщение главному окну программы, а процедура обработки этого сообщения делает FreeAndNil данному фрэйму. OnClose и CloseAction"а у фреймов нет, однако, а самому Release вызывать нельзя. ВОт я и боюсь, вдруг FreeAndNil сработает раньше, чем я выйду из ф-ии в фрейме, из которой запрос на эту FreeAndNil был вызван (т.е. откуда я SendMessage послал). Т.к. эта ф-ия - есть OnClick на кнопку на фрейме, то если случиться то, что я описал, то получим AV при попытке обработать событие поднятия кнопки мыши, т.к. ссылка на класс нулевая будет. Либо успокойте меня тем, что такая ситуация не возможна, потому что не возможна в принципе, либо научите как освобождать контролы из "них самих", если нет возможности Action:= caFree; сделать, как у форм.
Такой вот вопросец.

← →
MBo © (2004-04-27 17:18) [1]

если посылать PostMessage - все будет нормально.

← →
Maks Realov (2004-04-27 17:23) [2]

ну я и имел ввиду PostMessage :)
про SendMessage - это опечатка.

Но точно не проскочит FreeAndNil раньше?
... //main unit ... procedure TForm.Test(var Msg: TMessage); begin FreeAndNil(IncommingFrame); end; ... //frame unit ... procedure TFrame.ButtonClick(Sender: TObject); begin ... PostMessage(Handle, WM_MYMESSAGE, 0, 0); end; ...

← →
Jack128 © (2004-04-27 17:25) [3]

можно создать TMyFrame - реализовать в нем Realease (кода - 3 строчки) и все свои фреймы наследовать от TMyFrame

> Но точно не проскочит FreeAndNil раньше?
абсолютно точно. А том как реализованна очередь сообщений читай у Рихтера..

"Самоубийство" в runtime наследников НЕ TCustomForm. Найти похожие ветки