Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.25;
Скачать: CL | DM;

Вниз

Как узнать на какой из combobox ов нажата кнопка?   Найти похожие ветки 

 
AlekseyK ©   (2002-07-13 11:18) [0]

Есть несколько комбо и 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) [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;



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

Текущий архив: 2002.07.25;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.017 c
14-81439
yozhik
2002-06-27 14:59
2002.07.25
Формат XLS


1-81272
CrazyRoger
2002-07-15 13:05
2002.07.25
Можно ли использовать TclientSocket в консольных приложениях?


14-81412
GydruS
2002-06-20 12:07
2002.07.25
Чем можно заняться с девушкой в дождливую погоду?


14-81474
Ricks
2002-06-29 01:35
2002.07.25
Формат PNG


1-81233
Sergey_G
2002-07-14 14:17
2002.07.25
Доброго дня мастера! Кто разбирается в RichEdit?