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

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

TDBLookupComboBox открыть список сверху от эдита

Fynjy84 ©   (2008-10-28 08:18:00) 

Нужно сделать для конкретного комбика сделать открывание списка вверх
в исходном коде компонента

procedure TDBLookupComboBox.DropDown;
var
 P: TPoint;
 I, Y: Integer;
 S: string;
 ADropDownAlign: TDropDownAlign;
begin
 .....
   P := Parent.ClientToScreen(Point(Left, Top));
   Y := P.Y + Height;
   if Y + FDataList.Height > Screen.Height then Y := P.Y - FDataList.Height;
  ......
end;

Вот как бы мне сделать, чтобы не лезть варварски в этот код заставить комбик выдавать список вверх?
З.Ы. Нужно это для того чтобы список не уезжал под панель задач, сейчас он опускается вниз за пределы формы и уезжает под панель задач

---

sniknik   (2008-10-29 13:34:00) [1]

> а он будет уезжать за верхний край экрана...
не будет.

---

Правильный$Вася   (2008-10-29 11:34:00) [2]

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

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

---

sniknik   (2008-10-29 10:30:00) [3]

долго писал...

---

sniknik   (2008-10-29 10:29:00) [4]

> а вот как переопределить метод DropDown?
стандартно. переопределение виртуальных методов это основа ООП.

> Подскажите куда копать, пожалуйста.
в исходники vcl...

скопируй к себе в проект модуль DBCtrls (это чтоб не править генофонд),
найди процедуру procedure TDBLookupComboBox.DropDown;
в ней строчку
if Y + FDataList.Height > Screen.Height then Y := P.Y - FDataList.Height;
поменяй ее на
if Y + FDataList.Height > Screen. WorkAreaHeightthen Y := P.Y - FDataList.Height;
все.
если есть желание то можешь это исправление отдельным компонентом сделать... перенести весь код из DropDown в свой перекрытый, inherided не делать. все просто.

---

Fynjy84   (2008-10-29 10:15:00) [5]

Вопрос снимается
Бросил в папку с проектом dbctrls.pas
if Y + FDataList.Height > Screen.Height then Y := P.Y - FDataList.Height;
заменил на
if Y + FDataList.Height > Screen.WorkAreaHeight then Y := P.Y - FDataList.Height;

в принципе и с таким костылём пойдёт )))))

---

Fynjy84   (2008-10-29 09:57:00) [6]

Видимо нужно объявить наследника от TDBLookupComboBox ... а вот как переопределить метод DropDown?
Подскажите куда копать, пожалуйста.

---

Наверх