Текущий архив: 2005.07.11;
Скачать: 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 вся ветка
Текущий архив: 2005.07.11;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.037 c