Как организовать event'ы у своего класса(потока)?

[TwiX]

Например onError(Sender: TObject);

[mihali4]

Ну, прям, такие вопросы...
Давайте будем использовать богатейший опыт тех, кто умудрился создать нам такую изумительную среду программирования - программистов Борланда.
Кто мешает вам открыть... ну, например, файл Delphi7\Source\VclMenus.pas ?
И ввести там заветное словечко "error" ?
И посмотреть, как эти ребята организовали обработку этого самого "эррора"?
Согласитесь, все наши пояснения будут лишь жалким подобием шедевров от Борланда...

З.Ы. Вы знаете, я частенько при затруднениях заглядываю в их исходники (конечно, иногда поискать приходится - не сразу все дается).
Но зато...
Правда, каюсь (сегодня ведь прощенное воскресенье), кое-что иногда хочется "улучшить".
Почему в кавычках ? А у меня работает на "ура", а как у других будет ?

[TwiX]

Такого файла не нашёл...
Пробовал найти в idHttp.pas, но безрезультатно...

[Stilet]

Дело в том что сама среда Борланда умеет различать свойства на события и просто поля.
Поля - это скажем так способ достучаться к переменным, а события это поля, которые имеют процедурный тип. Вот в этом и разница.
Делфи само определяет когда ты пишешь в Published к какой категории относится поле, отож бо

  published
// Это будет определено как событие потому как имет процедурный тип
   property MyEvent:TNotifyEvent read FMyEvent write SetMyEvent;

// Это просто как обычное свойство
   property MyField:string read FMyField write SetMyField;

Вот тебе пример описания события.
понятно чем отличается?

[TwiX]

Честно говоря неочень понятно =)
Про свойство понятно, а как работать с событиями?...
Пробовал так...

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    property MyEvent:TNotifyEvent read Button2Click write Button3Click;
  end;

Конечно, сам понимаю, что это чушь) Но это всё, на что меня хватило)

[Пепел Феникса]

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    FButton1Click:TNotifyEvent;
  protected 
    procedure SetButton1Click(Value{это моя привычка, зови как хочешь}:TNotifyEvent);
  published
    property Button1Click:TNotifyEvent read FButton1Click write Button3Click;
  end

procedure TForm1.SetButton1Click;//я опускаю параметры, ибо редко делаю множество одноименных методов
begin
 Button1.OnClick:=Value;
end;

это что касается кода твоего.

а для чисто своего компонента, вот код из моего компонента

type
 TPcRCKeyEvent=procedure(Sender:TObject;Key:byte)of object;

type
 TPcBeholderRC=class(TComponent)
 private
  FOnKeyDown:TPcRCKeyEvent;
  FOnKeyPress:TPcRCKeyEvent;
  FOnKeyUp:TPcRCKeyEvent;
  OldWndProc,NewWndProc:Pointer;
  RCThread:TRCThread;
  FTime:integer;
  function HookAppProc(var Msg:TMessage):Boolean;
  procedure HookFormProc(var Msg:TMessage);
  procedure HookForm;
  procedure UnhookForm;
  procedure SetTime(T:integer);
 protected
   { Protected declarations }
 public
  constructor Create(AOwner:TComponent);override;
  destructor Destroy;override;
 published
  property OnKeyDown:TPcRCKeyEvent read FOnKeyDown write FOnKeyDown;
  property OnKeyPress:TPcRCKeyEvent read FOnKeyPress write FOnKeyPress;
  property OnKeyUp:TPcRCKeyEvent read FOnKeyUp write FOnKeyUp;
  property UpdateTime:integer read FTime write SetTime default 50;
 end;

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

function TPcBeholderRC.HookAppProc(var Msg:TMessage):Boolean;
begin
 Result:=false;
 if Msg.Msg<>WM_RC then exit;
 case Msg.WParam of
  RC_KEYDOWN:if assigned(FOnKeyDown) then FOnKeyDown(Self,Msg.LParam);
  RC_KEYUP:if assigned(FOnKeyUp) then FOnKeyUp(Self,Msg.LParam);
  RC_KEYPRESS:if assigned(FOnKeyPress) then FOnKeyPress(Self,Msg.LParam);
 end;
end;

вот выделил вызов событий для чисто своего класса

Давайте будем использовать богатейший опыт тех, кто умудрился создать нам такую изумительную среду программирования - программистов Борланда.

Солидарен, я им и пользовался+немного помогли исходники TCoolTrayIcon

[TwiX]

Совсем не понимаю структуры этих событий...
Вот если есть такой кусок:

property onButton1Click:TNotifyEvent read FButton1Click write Button3Click;

Что он означает? (Что пишется после read/write?)
Что у Form1 есть событие onButton1Click? А что ещё?

[Пепел Феникса]

откуда читать это событие(адрес на него)
и как писать его.

[TwiX]

Адрес на функцию, которая будет выполняться?
А как понимать "куда писать"?

[Пепел Феникса]

property Button1Click:TNotifyEvent read FButton1Click write Button3Click;

короче обьясню смысл сей конструкции.
после read указывается имя поля класса из которого возьмется значение для св-ва(так же там может стоять имя Get метода(если надо то обьясню), после write пишется имя поля которое примет в себя новое значение св-ва(или Set метод(как написал я))