Привет, уважаемые посетители форума!=)
Буду краток.
Как обрабатывать события сокета если, он создается так sock:=TServerSocket.Create(nil);? (то есть не сразу бросается на форму из палитры компонентов, а создается внутри программы)
К примеру, как узнать, что на указанный порт поступила какая-то информация?
Заранее спасибо=)
Ну вот например код который создаёт кнопку и добавляет к ней обработку события 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.
Thanx
Visible := True - это не надо писать