Автоматическое открытие Lookup поля в DBGrid

← →
IrenFD © (2002-04-22 15:13) [0]

Кто знает точно, помогите.
Как заставить автоматически открываться Lookup поле при входе в него или нажатии на букву на клавиатуре.

← →
Johnmen © (2002-04-22 15:16) [1]

В смысле свешивать соплю или открывать соотв. НД ?

← →
Lusha © (2002-04-22 15:22) [2]

Раскрыть выпадающий список Lookup поля можно, например, так...

procedure TForm1.Button1Click(Sender: TObject); begin DBGrid1.SetFocus; TMyDbGrid(DBGrid1).ShowEditor; if Assigned(TMyDbGrid(DBGrid1).InplaceEditor) then begin keybd_Event(VK_MENU, 0, 0, 0); keybd_Event(VK_DOWN, 0, 0, 0); keybd_Event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0); keybd_Event(VK_MENU, 0, KEYEVENTF_KEYUP, 0); end; end;

← →
IrenFD © (2002-04-22 18:31) [3]

Огромное спасибо - помогло, только я сделал в событии
OnColEnter маленькое изменение

begin
With DBGrid1 do
begin
if SelectedField.Lookup then
begin
EditorMode:=true;
keybd_Event(VK_MENU, 0, 0, 0);
keybd_Event(VK_DOWN, 0, 0, 0);
keybd_Event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
keybd_Event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
end;
end;
end;

А вот мой окончательный вариант:

procedure TRosnExpForm.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in [#48..#123,#128..#175,#224..#242])
then begin
With DBGrid1 do
begin
if SelectedField.Lookup
and (not LookOpen)
then begin
EditorMode:=true;
keybd_Event(VK_MENU, 0, 0, 0);
keybd_Event(VK_DOWN, 0, 0, 0);
keybd_Event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
keybd_Event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
keybd_Event(VK_DOWN, 0, 0, 0);
keybd_Event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
LookOpen:=true; //Добавлена приватная переменная,
//чтоб Lookup не дергался
Inherited;
end;
end;
end;
end;

После всего этого Lookup начал искать требуемое значение в "сопле", как тут выразились

Еще один момент: в событии OnCellExit нужно сбросить LookOpen, чтоб следующее поле сработало.(Например...)

Автоматическое открытие Lookup поля в DBGrid Найти похожие ветки