Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Классы в KOL [Delphi, Windows]

Mouserx © (2004-12-02 17:55:00)
Мастера, скажите есть ли какие-то особенности при работе со своим класом в KOL? Можете подкинуть пару ссылок на примеры?

ecm (2004-12-03 11:19:00) [1]
Лучше не class а object - займет меньше места...
А за примерами далеко ходить не надо - открой KOL.pas (или доп. компонент какой-нибудь) и посмотри хотя бы чут-чуть ...

Mouserx (2004-12-03 11:02:00) [2]

> 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-02 19:28:00) [3]
Контролируй только от кого наследуешь, а то потянешь за собой кусок ВКЛ :)

mdw (2004-12-02 18:41:00) [4]
Нет никаких особенностей.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »