Куда поставили мою программу?

← →
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).

> [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.

Спасибо begin..end and Fay ОГРОМНОЕ!!!

Куда поставили мою программу? Найти похожие ветки