TIEActionEvent

Declaration

TIEActionEvent = procedure(Sender: TObject; ButtonID: Integer; var Handled: Boolean) of object;

Description

Occurs when a toolbar button is clicked. Set Handled to True if you process the action yourself.

Example

procedure TForm1.ToolbarAction(Sender: TObject; ButtonID: Integer; var Handled: Boolean);
begin
  if ButtonID = MyCustomButton_ID then
  begin
    ShowMessage( 'Custom action' );
    Handled := True;
  end;
end;

See Also

◼OnActionExecute
◼OnActionUpdate

---