Скачать: CL | DM;

Автоматическое открытие 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;

---

← →
IrenFD ©   (2002-04-22 19:27) [4]

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

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 начал искать требуемое значение в "сопле", как тут выразились

---

← →
IrenFD ©   (2002-04-22 19:29) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c