Как программно заставить выпасть список в ValueListEditor e?

← →
AlexDM (2004-05-19 16:08) [0]

В ValueListEditor"e используются списки возможных значений (ItemProps[row].EditStyle = esPickList, типа встроенного Combobox как в Object Inspector Delphi).

Как сделать чтобы при щелчке ЛК мыши в ячейке, автоматически выпал ее ниспадающий список?

Заранее спасибо!

← →
Palladin © (2004-05-19 16:46) [1]

OnGetPickList

← →
AlexDM (2004-05-19 17:24) [2]

Нет, OnGetPickList это уже последствие, где можно набить выпадающий список строками и объектами.
А я бы хотел чтобы при нажатии в ячейке рядом с кнопкой выпадающего списка принудительно появлялся сам список. Может какое то сообщение надо послать этому компоненту?

← →
AlexDM (2004-05-19 17:25) [3]

Нет, OnGetPickList это уже последствие, где можно набить выпадающий список строками и объектами.
А я бы хотел чтобы при нажатии ЛК мыши в ячейке рядом с кнопкой выпадающего списка принудительно появлялся сам список. Может какое то сообщение надо послать этому компоненту?

← →
Palladin © (2004-05-19 17:25) [4]

Ты справку почитай прежде чем заявлять что то

← →
AlexDM (2004-05-19 17:49) [5]

По моему возникло какое то недопонимание:

type TGetPickListEvent = procedure (Sender: TObject; const KeyName: String; Values: TStrings) of object;

property OnGetPickList: TGetPickListEvent;

"Возникает при щелчке по кнопке раскрытия (!!!) списка возможных значений. Параметр KeyName содержит имя строки, в которой произведен щелчок. Обработчик должен заполнить возможными значениями список Values. Свойство ItemProps. EditStyle должно содержать значение esPickList".

А я хочу добится чтобы как только ячейка содержащая список получила фокус (щелчок ЛК мыши в ячейке рядом(!) с кнопкой раскрытия списка)- сразу выпал этот самый список как это делается в Combobox"e:

MyComboBox.DroppedDown := True;
Или:
MyComboBox.Perform(CB_SHOWDROPDOWN, True, 0);

Спасибо

← →
WebErr © (2004-05-19 17:56) [6]

Вот тебе задачка на размышление:
Есть такая функция у ValueListEditor"a
function GetPickList(Values: TStrings; ClearFirst: Boolean = True): Boolean;
но находится она в protected секции!
Сможешь её достать - МОЛОДЕЦ - и используй ObjectInspector, а не сможешь - используй ObjectInspector. :))))

аа... прошу прощенья... теперь понял... надо посмотреть

type
TMyVL = class(TValueListEditor);
TMyIEL = class(TInplaceEditList);

procedure onXXXX
begin
// проверки
TMyIEL(TMyVL(ValueListEditor1).InplaceEditor).DropDown;
end;

← →
BFG9k (2004-05-20 16:40) [9]

MU: Как использовать InplaceEditor для какой-то конкретной ячейки? Предлагаемый код виснет ...

Как программно заставить выпасть список в ValueListEditor e? Найти похожие ветки