Форум: "Основная";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];
ВнизСвоство компонента типа строка, но с выпадающим списком... Найти похожие ветки
← →
MJH (2002-08-22 11:49) [0]как собственно такое сделать?
т.е. скажем есть свойство Data_Table строкового типа...в нем должен выпадать список всех таблиц (он уже есть)...и выбирается одна таблица...
зы...лень копать уже..не себе делаю :)
← →
kronprince (2002-08-22 12:04) [1]- ты сам понял что сказал ???
"..лень копать уже.."
- мне тоже лень искать - "..не себе делаю :)"
← →
vuk (2002-08-22 12:10) [2]Нужно писать редактор свойства. Строится наследник от TPropertyEditor.
Пример (на названия можно внимания не обращать, это выдрано из готового компонента)
TComponentReferenceProperty = class(TPropertyEditor)
public
function GetAttributes: TPropertyAttributes; override;
function GetEditLimit: Integer; override;
function GetValue: string; override;
procedure GetValues(Proc: TGetStrProc); override;
procedure SetValue(const Value: string); override;
end;
function TComponentReferenceProperty.GetAttributes: TPropertyAttributes;
begin
Result := [paMultiSelect, paValueList, paSortList, paRevertable];
end;
function TComponentReferenceProperty.GetEditLimit: Integer;
begin
Result := 127;
end;
function TComponentReferenceProperty.GetValue: string;
begin
//возвращаем значение свойства
end;
procedure TComponentReferenceProperty.GetValues(Proc: TGetStrProc);
begin
//перечисляем элементы выпадающего списка
end;
procedure TComponentReferenceProperty.SetValue(const Value: string);
begin
//надеюсь понятно что здесь
end;
регистрация:
RegisterPropertyEditor( TypeInfo(string), TFCStoredComponent,
"ComponentName", TComponentReferenceProperty );
← →
MJH (2002-08-22 16:24) [3]ну редакторы писать можес (что со мной...задолбался опечатываться :)....сенкс...а вопрос внатуре глупый :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c