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

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

TPopupDataGridEh > DBLookupComboboxEh [D7]

Layner9 ©   (2010-02-17 10:41:00) 

Здравствуйте!
Есть DBLookupComboboxEh, созданный в рунтайме.
1. Обрабатываю DBLookupComboboxEhDropDownBoxGetCellParams для расскраски
2. Но в Sender от EhDropDownBoxGetCellParams есть приходит TPopupDataGridEh!
3. Не могу достучаться до своего DBLookupComboboxEh, чтобы выяснить что за DataSource привязана к DBLookupComboboxEh

по идее бы так вот надо, но это ес-но не прокатывает:

procedure Tfmain.DBLookupComboboxEhDropDownBoxGetCellParams(
 Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor;
 State: TGridDrawState);
var
a: variant;
begin
if (sender as TDBLookupComboboxEh).DataSource.DataSet.FieldValues['Color']<>null then
Background:=(Sender as TDBLookupComboboxEh).DataSource.DataSet.FieldValues['Color'];
end;


---

Layner9   (2010-02-17 10:46:00) [1]

вернее не так, не "кликнул юзер", а узнать какой DBLookupComboboxEhс каким DataSource / ListSourceработает...

сложно все возможно :(

---

Layner9   (2010-02-17 10:43:00) [2]

procedure Tfmain.DBLookupComboboxEhDropDownBoxGetCellParams(
Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor;
State: TGridDrawState);
var
a: variant;
begin
//тут вместо TDBLookupComboboxEh приходит TPopupDataGridEh, а как с ним работать, как дойти до TDBLookupComboboxEh и узнать, какой же TDBLookupComboboxEh  кликнул юзер
if (sender as TDBLookupComboboxEh).DataSource.DataSet.FieldValues['Color']<>null then
Background:=(Sender as TDBLookupComboboxEh).DataSource.DataSet.FieldValues['Color'];
end;

---

Наверх