Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.31;
Скачать: CL | DM;

Вниз

Уничтожить TClientSocket после disconnect-а.   Найти похожие ветки 

 
ezorcist   (2006-12-09 20:51) [0]

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


 
Джо ©   (2006-12-09 20:53) [1]

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

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


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

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


 
Джо ©   (2006-12-09 21:15) [3]

> [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;

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



Страницы: 1 вся ветка

Текущий архив: 2006.12.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.071 c
2-1165965842
Vladimir1984
2006-12-13 02:24
2006.12.31
Как выставить на поверхности Карты высот числовые зачения 0-255?


2-1165740492
ctudent
2006-12-10 11:48
2006.12.31
Изменение позиции MDI окна


2-1165911751
Aks13
2006-12-12 11:22
2006.12.31
Программно нажать кнопку на форме


15-1165502145
SkySpeed
2006-12-07 17:35
2006.12.31
HELP! ПК тупо зависает без причины, приходится перезагружать.....


15-1165488726
Логин
2006-12-07 13:52
2006.12.31
Беспрводные сети!