Текущий архив: 2003.10.13;
Скачать: CL | DM;
Вниз
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-го. :((
Что делаю не так?
Страницы: 1 вся ветка
Текущий архив: 2003.10.13;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
