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

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

Уничтожить TClientSocket после disconnect-а.

ezorcist ©   (2006-12-09 20:51:00) 

попробывал написать destroy в OnDisconnect - ошибка. ??

---

Джо   (2006-12-09 21:15:00) [1]

> [2] Ezorcist   (09.12.06 20:56)
> А можно пример?

Удаление кнопки в ее собственном обработчике OnClick:

const
 WM_DESTORY_OBJECT = WM_USER + 666;

type
 TForm30 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   procedure WmDestroyObject (var Msg: TMessage);
     message WM_DESTORY_OBJECT;
 end;

var
 Form30: TForm30;

implementation

{$R *.dfm}

{ TForm30 }

procedure TForm30.Button1Click(Sender: TObject);
begin
 PostMessage (Handle,WM_DESTORY_OBJECT,Integer(Sender),0);
end;

procedure TForm30.WmDestroyObject(var Msg: TMessage);
begin
 TObject(Msg.WParam).Free
end;

Аналогично и с любым другим объектом.

---

Ezorcist   (2006-12-09 20:56:00) [2]

А можно пример?

---

Джо   (2006-12-09 20:53:00) [3]

> [0] ezorcist   (09.12.06 20:51)
> попробывал написать destroy в OnDisconnect - ошибка. ??

Уничтожать компонент в его собственном обработчике события — не есть хорошая идея. Стандартный обходной путь: посылать ( PostMessage) форме заранее известное сообщение, в его обработчике и уничтожать нужный компонент.

---

Наверх