Форум: "Базы";
Текущий архив: 2011.11.20;
Скачать: [xml.tar.bz2];

Вниз

TPopupDataGridEh > DBLookupComboboxEh   Найти похожие ветки 

← →
Layner9   (2010-02-17 10:41) [0]

Здравствуйте!
Есть 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:43) [1]

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;

---

← →
Layner9   (2010-02-17 10:46) [2]

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

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

---

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

Форум: "Базы";
Текущий архив: 2011.11.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.003 c