RzDBCombobox и RxPopupMenu

← →
Filat (2003-10-02 18:14) [0]

Привязываю к RzDBCombobox (их 6, на 2-х панелях по 3) один RxPopupMenu.
В принципе работает, но глюк возник именно на 1-м и 4-м.
Делаю так:
procedure TMForm.RzDBComboBox1Enter(Sender: TObject);
begin
if RzDBComboBox1.Focused=True then
RzDBComboBox1.PopupMenu:=RxPopupMenu1;
end;

procedure TMForm.N53Click(Sender: TObject);
begin
if RzDBComboBox1.Focused=True then
begin
RzDBComboBox1.Items.Add(RzDBComboBox1.Text);
end;
end;

procedure TMForm.N54Click(Sender: TObject);
begin
if RzDBComboBox1.Focused=True then
begin
RzDBComboBox1.Items.Delete(RzDBComboBox1.ItemIndex);
end;
end;

Пока не перейдёшь на 2 и 5 RzDBCombobox не ключается меню. Потом в процессе все работает, в чем глюк?

← →
willys (2003-10-02 18:29) [1]

попробуй в дизай-тайм привязать меню к тому комбобоксу, который активен сначала.

← →
Filat (2003-10-02 20:08) [2]

Помогло, но не совсем, теперь 2-й выделывается.
т.е. пока два клика не сделаешь на RzDBComboBox (1-й текст синим цветом, 2-й - выделение снято) и вот тогда включается RxPopupMenu. Так же было и для 1-го. :((
Что делаю не так?

RzDBCombobox и RxPopupMenu Найти похожие ветки