Как организовать event'ы у своего класса(потока)? - Общие вопросы Delphi - Страница 3

Пепел Феникса · 16.02.2010, 01:59

Код:

type
 TMyThread=class(TThread)
  private 
   FOnDone:TNotifyEvent;//можно даже создать новый тип событий 
  protected 
   procedure Evecute;override;
  public 
   property OnDone:TNotifyEvent read FOnDone write FOnDone default nil;//мы обьявляем св-во для события  
//не уверен что default сработает(тогда следует переопределить конструктор)
 end;

procedure TMyThread.Execute;
begin
 <здесь все действия>
 if assigned(FOnDone) then FOnDone(Self);//это ставим в том месте где по коду потока поток заканчивает работу
end;

потом в основном модуле берем заготовку процедуры от например FormCreate(Sender:TObject)
и можно её присвоить потоку

Код:

 TMyThread.OnDone:=FormCreate;//естественно обьекту а не классу

TwiX · 16.02.2010, 02:18

Спасибо огромнейшее за все потраченные усилия =)
А как добавить парметры в событие?

Изнасиловал уже всех

Может, пора разбивать тему на несколько ?
У нас ведь правило - "одна тема - один вопрос"...

Пепел Феникса · 16.02.2010, 02:39

посмотрите пример из моего компонента...я там показал определение нового типа событий

хотел в асю постучатся, а там тихо..

TwiX · 16.02.2010, 03:38

Завтра буду изучать примеры)

Цитата:

хотел в асю постучатся, а там тихо..

Может по тому, что уже три часа ночи?)

Ещё раз спасибо)

16.02.2010, 01:59	#21
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	Код: type TMyThread=class(TThread) private FOnDone:TNotifyEvent;//можно даже создать новый тип событий protected procedure Evecute;override; public property OnDone:TNotifyEvent read FOnDone write FOnDone default nil;//мы обьявляем св-во для события //не уверен что default сработает(тогда следует переопределить конструктор) end; procedure TMyThread.Execute; begin <здесь все действия> if assigned(FOnDone) then FOnDone(Self);//это ставим в том месте где по коду потока поток заканчивает работу end; потом в основном модуле берем заготовку процедуры от например FormCreate(Sender:TObject) и можно её присвоить потоку Код: `TMyThread.OnDone:=FormCreate;//естественно обьекту а не классу` Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. Последний раз редактировалось Пепел Феникса; 16.02.2010 в 02:03.

16.02.2010, 02:18	#22
TwiX Участник клуба Регистрация: 28.07.2009 Сообщений: 1,510	Спасибо огромнейшее за все потраченные усилия =) А как добавить парметры в событие? Изнасиловал уже всех Может, пора разбивать тему на несколько ? У нас ведь правило - "одна тема - один вопрос"... Последний раз редактировалось mihali4; 16.02.2010 в 02:36.

16.02.2010, 02:39	#23
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	посмотрите пример из моего компонента...я там показал определение нового типа событий хотел в асю постучатся, а там тихо.. Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. Последний раз редактировалось Пепел Феникса; 16.02.2010 в 02:48.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Создание своего класса в Delphi 7 - фигуры для шахматной доски	electric	Компоненты Delphi	18	24.10.2013 15:06
как правильно организовать продажу своего софта?	broderweb	Свободное общение	11	02.12.2009 17:41
Создание своего класса, наследование от предка	Krechet	Общие вопросы Delphi	16	02.05.2009 16:15
Создание своего класса	AlexandrSid	Общие вопросы Delphi	3	19.05.2008 13:28
одна функция потока, а другая функция - член класса запускающего этот поток	Дмитрий_Ч	Общие вопросы C/C++	2	27.09.2007 08:50