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

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

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


Maks Realov ©   (2004-04-27 17:12:00) 

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


Jack128   (2004-04-27 17:26:00) [1]


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


Jack128   (2004-04-27 17:25:00) [2]

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


Maks Realov   (2004-04-27 17:23:00) [3]

ну я и имел ввиду 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;
...


MBo   (2004-04-27 17:18:00) [4]

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


Наверх

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