ImageEn, unit iemview

TImageEnMView.OnEditText

TImageEnMView.OnEditText


Declaration


property OnEditText: TIEEditTextEvent;


Description


Used by OnEditText whenever the user renames text of an image (when ReadOnly = False).


Example


procedure TMyForm.IEMView1EditText(Sender: TObject; Index: Integer; Position: TIEMTextPos; var Text: String; var Allow: boolean);
begin
  // Do not allow user to specify colons or slashes
  if ( pos( ':', Text ) > 0 ) or ( pos( '\', Text ) > 0 ) then
  begin
    Allow := False;
    MessageBeep( MB_ERROR );
  end;
end;