Declaration
property OnEditText: TIEEditTextEvent;
Description
Used by
OnEditText whenever the user renames text of an image (when
ReadOnly = False).
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;