IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Обработка событий TClientSocket или TServerSocket
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 17

Репутация: -  0  +


Привет, уважаемые посетители форума!=)
Буду краток.
Как обрабатывать события сокета если, он создается так sock:=TServerSocket.Create(nil);? (то есть не сразу бросается на форму из палитры компонентов, а создается внутри программы)
К примеру, как узнать, что на указанный порт поступила какая-то информация?
Заранее спасибо=)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Бывалый
***

Группа: Пользователи
Сообщений: 156
Пол: Мужской

Репутация: -  0  +


Ну вот например код который создаёт кнопку и добавляет к ней обработку события onClick

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   Procedure Click(Sender:TObject);
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Click(Sender: TObject);
begin
 showmessage('Ckicked');
end;

procedure TForm1.Button1Click(Sender: TObject);
 var b:TButton;
begin
 b:=TButton.create(Form1);
 b.Parent:=Form1;
 b.visible:=true;
 b.OnClick:=Click;
end;

end.


Сообщение отредактировано: volvo -


--------------------
With the best regards Vit

Все всегда уезжают навсегда. Вернуться невозможно-вместо нас всегда возвращается кто-то другой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 17

Репутация: -  0  +


Thanx
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Бывалый
***

Группа: Пользователи
Сообщений: 282

Репутация: -  0  +


Visible := True - это не надо писать
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 18.12.2017 12:05
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"