<< Click to display table of contents >>
A type for events happened to a toolbar button.
Unit SRVToolBar.
type
TSRVClickButtonEvent = procedure(Sender: TObject;
ToolButton: TSRVToolButton) of object;