TIECellClickEvent

Declaration

TIECellClickEvent = procedure(Sender: TObject; Button: TMouseButton; Shift: TShiftState; Index: Integer; aColor: TColor; var Allow: Boolean) of object;

Description

Occurs whenever the user clicks a color cell. Set Allow to False to prevent selection.

Example

procedure TForm1.IEColorPalette1CellClick(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; Index: Integer; aColor: TColor; var Allow: Boolean);
begin
  if aColor = clRed then
    Allow := False;
end;

See Also

◼OnCellClick
◼SelectedColor

---