Скачать: CL | DM;

Как сделать чтоб в TStringGrid-е сначала подсвечивалась бы строка   Найти похожие ветки 

← →
UserL   (2003-02-07 07:12) [0]

Как сделать чтоб в TStringGrid-е при нажатии на правую кнопку миши сначала подсвечивалась бы строка, на которой была нажата кнопка мыши, а затем бы вылетало бы всплывающее меню...

---

← →
Song ©   (2003-02-07 08:13) [1]

Ну так TStringGrid.Row

---

← →
UserL   (2003-02-07 08:35) [2]

Ну так???
Если обрабатывать левую кнопку - то сначала подсвечивает, а затем вылетает попупменю, а вот если на правую кнопку поставить - меню вылетает, а вот строка не подсвечиваеться.
Остаеться подсвеченной та строка, которая и была...

---

← →
Song ©   (2003-02-07 08:56) [3]

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var ACol,ARow:Integer;
begin
With TStringGrid(Sender) Do
try
MouseToCell(X,Y,ACol,ARow);
Row:=ARow;
except
end;
end;

И TPopupMenu связываешь с гридом как обычно.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c