Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];
Вниз
Куда поставили мою программу? Найти похожие ветки
← →
Neznaika © (2005-01-14 11:57) [0]По-моему этот вопрос уже обсуждался как-то, но я не обратил на него внимания - теперь жалею. Как узнать куда пользователь установил мою программу? Для инсталяции использую InnoSetup...
И еще второй вопрос: необходимо чтобы в стринггрид по клику правой кнопкой мыши выделялась строка над которой находится курсор и затем появлялось попуп меню. Сколько не мучался - не получается.
Заранее благодарен за любую информацию!!!
← →
Fay © (2005-01-14 11:59) [1]ParamStr(0)
← →
Neznaika © (2005-01-14 12:03) [2]А по второму вопросу не?
← →
Fay © (2005-01-14 12:05) [3]2 Neznaika © (14.01.05 12:03) [2]
Ничего. Отлучите StringGrid от PopupMenu, который нужно "попапить" вручную. Мне так каацца.
← →
Neznaika © (2005-01-14 12:08) [4]Хорошо я отлучу и буду попапить вручную, но при этом все равно надо сделать выделение строки в гриде - правой кнопкой - КАК?
← →
begin...end © (2005-01-14 12:11) [5]> [4] Neznaika © (14.01.05 12:08)
TStringGrid.[OnMouseDown, MouseToCell, Row).
← →
begin...end © (2005-01-14 12:38) [6]> [4] Neznaika © (14.01.05 12:08)
Даже и попапить вручную не надо. Оставьте то меню, которое было, и напишите такой обработчик OnMouseDown:procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
ColNum, RowNum: Integer;
begin
if Button = mbRight then
with (Sender as TStringGrid) do
begin
MouseToCell(X, Y, ColNum, RowNum);
Row := RowNum
end
end.
Разумеется, чтобы выделялась целая строка, TStringGrid.Options должно включать goRowSelect.
← →
Neznaika © (2005-01-14 12:42) [7]Спасибо begin..end and Fay ОГРОМНОЕ!!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.041 c
