Своство компонента типа строка, но с выпадающим списком...

← →
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 );

ну редакторы писать можес (что со мной...задолбался опечатываться :)....сенкс...а вопрос внатуре глупый :)

Своство компонента типа строка, но с выпадающим списком... Найти похожие ветки