Текущий архив: 2004.07.18;
Скачать: CL | DM;
Вниз
Косяк в ЛистВью!!!Плиз хелп!!! Найти похожие ветки
← →
Ярослав (2004-07-05 10:32) [0]Зравствуйте!
Как можно сделать что бы при правом клике на иконку в ListView выпадал popup а при клике по свободному полю ListView или не выпадал или выпадал другой popup?
← →
officeman (2004-07-05 10:36) [1]=) работай с событиями ListView1. меняй popup"ы
← →
Семен Сорокин © (2004-07-05 10:42) [2]1. OnMouseDown
2. ListView1.GetItemAt()
3. PopupMenu1.Popup
← →
Ярослав (2004-07-05 12:07) [3]Здравствуйте!
Опишите пожалуйста поподробней
Заранее спасибо!
← →
Семен Сорокин © (2004-07-05 12:21) [4]
procedure TForm1.ListView1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (Button = mbRight) and (Shift = [ssRight]) and
Assigned(ListView1.GetItemAt(X, Y)) then
PopupMenu1.Popup(ListView1.ClientOrigin.X + X, ListView1.ClientOrigin.Y + Y)
end;
Страницы: 1 вся ветка
Текущий архив: 2004.07.18;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.041 c
