Скачать: CL | DM;

Классы в 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;

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

---

← →
ecm ©   (2004-12-03 11:19) [4]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c