Как узнать на какой из combobox ов нажата кнопка? [D6, NT4, Win2k]
AlekseyK © (2002-07-13 11:18:00)
Есть несколько комбо и popupmenu При нажатии на ону из Item
PopupMenu нужно узнать на какой из комбо было нажато
пробовал
with sender as TComboBox do
begin
case Name of
combobox1:showmessage("combo1");
Сombobox2:showmessage("combo2");
Сombobox3:showmessage("combo3");
end;
не проходит
TTCustomDelphiMaster (2002-07-13 12:31:00) [1]
Эта фукция присваивает tag"у popupmenu значение tag"а
компонета для которого меню было вызвано.
Запиши в tag своих combobox"ов 1, 2, 3 и пользуйся.
procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
cb: TControl;
begin
cb := Controlatpos(Screentoclient(mouse.cursorpos), false,
true);
if cb <> nil then
PopupMenu1.Tag := cb.tag
else
PopupMenu1.Tag := -1;
end;
Наверх 
ЧАТ |
Орешник |
|
