Property FileName

← →
Юрий Зотов (2001-12-27 20:29) [9]

1. Наследуйте TTextFilePropertyEditor от TStringProperty. Класс TPropertyEditor слишком общий, здесь он плохо подходит.

2. Измените регистрацию. Правильно так:
RegisterPropertyEditor(TypeInfo(string), ...);

3. Измените метод Edit. Более грамотный код такой:

procedure TTextFilePropertyEditor.Edit;
begin
with TOpenDialog.Create(Application) do
try
Filter := ...;
if Execute then SetStrValue(FileName);
finally
Free
end
end;

4. Вынесите редактор и процедуру Register в отдельный Unit, а в нем напишите uses ..., HighRichEdit (обычно для этого пишут специальный модуль регистрации). Иначе они будут "подтягиваться" в любой EXE, использующий Ваш компонент - а это совсем ни к чему.

И все должно стать ОК. Только советую изменить имя класса редактора. Если следовать принятым соглашениям, то он должен заканчиваться словом "Property" - например, TMyFileNameProperty.

Property FileName Найти похожие ветки