Форум: "Основная";
Текущий архив: 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.035 c