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

Вниз

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

 
c0pYc@t   (2002-07-23 13:21) [0]

как сделать так, чтоб при нажатии на пункт PopupMenu действие выполнялось, но форма PopupMenu не закрывалась?


 
Skier ©   (2002-07-23 13:32) [1]

>c0pYc@t
Видимо (?), нужно опять выводить PopupMenu в том же месте...


 
c0pYc@t   (2002-07-23 13:36) [2]

И как енто сделать


 
Skier ©   (2002-07-23 13:48) [3]

>c0pYc@t


procedure TForm1.MenuItemClick(Sender: TObject);
begin
//код твоего обработчика ...
PopupMenu1.Popup(...те же координаты...);
end;


 
c0pYc@t   (2002-07-23 14:06) [4]

А мона чтоб не мерцало :))


 
Skier ©   (2002-07-23 14:33) [5]

>c0pYc@t
Нет.


 
Song ©   (2002-07-23 15:07) [6]

Можно попробовать, но в принципе у меня не моргает и так:
procedure TForm1.N11Click(Sender: TObject);
begin
With PopupMenu1 Do
Begin
LockWindowUpdate(Handle);
Popup(PopupPoint.X,PopupPoint.Y);
LockWindowUpdate(0);
End;
end;


 
Игорь Шевченко ©   (2002-07-23 16:18) [7]

c0pYc@t (23.07.02 14:06)
Skier © (23.07.02 13:48)
Song © (23.07.02 15:07)

Давить надо такие извращения. В корне :-)


 
Skier ©   (2002-07-23 16:21) [8]

>Игорь Шевченко
Ну...захотел человек... :)



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
14-13792
Человек в белом халате
2002-07-10 15:23
2002.08.05
Чувак13


4-13855
KeVRter
2002-05-29 16:31
2002.08.05
Как подключить мышь к LPT-порту?


1-13689
Mis
2002-07-22 23:49
2002.08.05
Как в переменную типа Tbitmap загрузить Jpeg-картинку?


1-13607
Filat
2002-07-24 16:22
2002.08.05
Сканирование каталогов In & Out + перемещение файлов по ф6?


6-13755
Suomi
2002-05-23 00:00
2002.08.05
Как ограничить(уменьшить) скорость соединения через DialUp?