TImageEnView.OnButtonState

Declaration

property OnButtonState: TIEVButtonStateEvent;

Description

Occurs whenever the state of a button is queried

Example

procedure TForm1.ImageEnView1ButtonState(Sender: TObject; Button: TIEVButton; var Visible: Boolean; var Enabled: Boolean);
begin
  case Button of
    iebtPrevious : Enabled := ImageEnMView1.SelectedImage > 0;
    iebtNext     : Enabled := ImageEnMView1.SelectedImage < ImageEnMView1.ImageCount - 1;
  end;
end;

---