Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.08.05;
Скачать: CL | DM;

Вниз

Можно ли создать событие для не визуального класса?   Найти похожие ветки 

 
koha ©   (2007-07-06 17:17) [0]

Можно ли создать событие для не визуального класса?


 
clickmaker ©   (2007-07-06 17:20) [1]

а почему нет?
пример: TStringList.OnChange


 
Stanislav ©   (2007-07-06 17:20) [2]

можно.


 
koha ©   (2007-07-06 17:59) [3]

Может чего подскажете мне нужно создать свое событие в TThread


 
oldman ©   (2007-07-06 18:01) [4]


> Можно ли создать событие для не визуального класса?


Ну... Если они существуют, значит можно.
Я думаю, создаются так-же, как и для визуального класса.


 
Kolan ©   (2007-07-06 18:06) [5]

> Может чего подскажете мне нужно создать свое событие в TThread

TMyThreadEvent = procedure (Sender: TObject; SomeParam: Integer) of object;

TMyThreadWithEvent = class(TThread)
strict private
 FMyThreadEvent: TMyThreadEvent;
public
 property OnMyEvent: TMyThreadEvent read FMyThreadEvent write FMyThreadEvent;
end;


 
Kolan ©   (2007-07-06 18:10) [6]

Пользуемся как обычно:

{&#133}
procedure ThradEvent(Sender: TObject; SomeParam: Integer);// <&#151; это должен быть метод. Например формы.

{&#133}
var
 MyThread: TMyThreadWithEvent;
begin
 MyThread.OnMyEvent := ThradEvent;


 
{RASkov} ©   (2007-07-06 23:05) [7]

События в делфи-классах - это теже самые свойства, только их тип - ссылка на метод.... См [5],[6]...



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

Текущий архив: 2007.08.05;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.015 c
15-1183620529
Kerk
2007-07-05 11:28
2007.08.05
[usability] регистрация


15-1184099959
BaryVetaL
2007-07-11 00:39
2007.08.05
Компонент для разбора исходного текста


2-1183807782
Ezorcist
2007-07-07 15:29
2007.08.05
Все делает правильно но в конце кидает "invalid pointer oper.."


15-1183889078
ajlekceu
2007-07-08 14:04
2007.08.05
можно ли отследить злодея, ломающего IntranetChat?


15-1184135029
malefik
2007-07-11 10:23
2007.08.05
Обработка сообщений в TService + TDataModule