TIEGetHintTextEvent

Declaration

TIEGetHintTextEvent = procedure(Sender: TObject; AColor: TColor; Index: Integer; var HintStr: string) of object;

Description

Occurs when a custom hint is shown for a color cell. Customize the hint by changing HintStr.

Example

procedure TForm1.IEColorPalette1GetHintText(Sender: TObject; AColor: TColor;
  Index: Integer; var HintStr: string);
begin
  if AColor = clRed then
    HintStr := 'Red, just like my Ferrari!';
end;

See Also

◼OnGetHintText
◼HintFormat

---