Eigene Komponente (TNA-Icon) und TNotifyEvent

[turboPASCAL]

Delphi-Quellcode:

published
    property OnClick: TNotifyEvent read FOnClick write FOnClick;
    property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
    property OnRightClick: TMouseEvent read FOnRightClick write FonRightClick; // !


// ...

procedure TTrayIcon.DoDblClick(Sender: TObject);
begin
  if Assigned(FOnDblClick) then FOnDblClick(Sender);
end;

procedure TTrayIcon.DoClick(Sender: TObject);
begin
  if Assigned(FOnClick) then FOnClick(Sender);
end;

procedure TTrayIcon.DoRightClick(Sender: TObject);
begin
  if Assigned(FOnRightClick) then...
end;

Das ist schon alles.

[edit=turboPASCAL]Edit: Anhang hinzugefügt. Eine fertige einfache Trayicon-Classe... (nix JVCL's) [/edit]