Классы в KOL

← →
Mouserx (2004-12-02 17:55) [0]

Мастера, скажите есть ли какие-то особенности при работе со своим класом в KOL? Можете подкинуть пару ссылок на примеры?

← →
mdw © (2004-12-02 18:41) [1]

Нет никаких особенностей.

← →
ecm © (2004-12-02 19:28) [2]

Контролируй только от кого наследуешь, а то потянешь за собой кусок ВКЛ :)

← →
Mouserx (2004-12-03 11:02) [3]

> ecm

Ну вот например без КОЛ я писал так:

type
TOnChangedEvent = procedure (Sender : TObject; Value : String) of Object;
TOnConnect_Disconnect = procedure (Sender : TObject) of object;

type TSomeClass = class
private
fName : ShortString;
EventOnChanged : TOnChangedEvent;
EventOnConnect, EventOnDisconnect : TOnConnect_Disconnect;
procedure SocketOnConnect(Sender: TObject; Socket: TCustomWinSocket);
procedure SocketOnDisconnect(Sender: TObject; Socket: TCustomWinSocket);
procedure SocketOnRead(Sender: TObject; Socket: TCustomWinSocket);
procedure SocketOnWrite(Sender: TObject; Socket: TCustomWinSocket);
procedure SocketOnError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
public
constructor Create;
destructor Destroy; override;
property Name : ShortString read fName write fName;
property OnChanged : TOnChangedEvent read EventOnChanged write EventOnChanged;
property OnConnect : TOnConnect_Disconnect read EventOnConnect write EventOnConnect;
property OnDisconnect : TOnConnect_Disconnect read EventOnDisconnect write EventOnDisconnect;
procedure Connect;
procedure Disconnect;
end;

а как в КОЛ необходимо ето писать? как евенты обьявлять и как сам класс?

Лучше не class а object - займет меньше места...
А за примерами далеко ходить не надо - открой KOL.pas (или доп. компонент какой-нибудь) и посмотри хотя бы чут-чуть ...

Классы в KOL Найти похожие ветки