Перехват нашатия клавишь

← →
VEZ (2005-11-11 14:35) [0]

Есть потомок стринггрида, где добавлен комбобокс, нужно запретить вводить текст в этот комбобокс, и позволить только выбирать значения из списка, я конечно может быть сделал криво, но решил перехватывать нашатые клавиши присваивать им код 0, что собственно не катит скажем с клавишей бэкспэйс, может кто знает как обойти.

← →
MBo © (2005-11-11 14:46) [1]

Посмотри на свойство Tcombobox.style

← →
VEZ (2005-11-11 15:04) [2]

Дак помоему в комбобоксе, встроенном в стрингрид нельзя обращаться к его свойствам, это просто вид колонки грида, и обращаешся к нему по Cells, если бы так можно было то проблем бы таких вообще не возникло.

← →
MBo © (2005-11-11 15:58) [3]

Насколько я понимаю, от того, что комбобокс (если это настоящий комбобокс) куда-то там встроен, он не перестает быть комбобоксом с вытекающими отсюда свойствами

← →
VEZ (2005-11-11 16:18) [4]

Ну это просто стиль ячейки грида, PickList называется, в Rx гриде можно задавать это напрямую, или же в обычном гриде писать потомка

function TChannelGrid.CreateEditor: TInplaceEdit;
begin
Result := TInplaceEditList.Create(Self);
(Result as TInplaceEditList).OnGetPickListitems := FOnGetPickListItems;
end;

function TChannelGrid.GetEditStyle(ACol, ARow: Integer): TEditStyle;
begin
if ACol = 2 then
Result := esPickList
else
Result := inherited GetEditStyle(ACol, ARow);
end;.

> function TChannelGrid.CreateEditor: TInplaceEdit;
> begin
> Result := TInplaceEditList.Create(Self);
> (Result as TInplaceEditList).OnGetPickListitems := FOnGetPickListItems;

> end;

А если конструктор дополнить:
HandleNeeded;
SetWindowLong(..); // not tested

--
Regards, LVT.

Перехват нашатия клавишь Найти похожие ветки