| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Автоматическое открытие Lookup поля в DBGrid [D6, Acces]

IrenFD ©   (2002-04-22 15:13:00) 

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

---

IrenFD   (2002-04-22 19:29:00) [1]

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

---

IrenFD   (2002-04-22 19:27:00) [2]

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

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 18:31:00) [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;

---

Lusha   (2002-04-22 15:22:00) [4]

Раскрыть выпадающий список 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;

---

Johnmen   (2002-04-22 15:16:00) [5]

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

---

Наверх