![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сделать чтоб в TStringGrid-е сначала подсвечивалась бы строка [D6, Win95/98, Win2k]
UserL © (2003-02-07 07:12:00)Как сделать чтоб в TStringGrid-е при нажатии на правую кнопку миши сначала подсвечивалась бы строка, на которой была нажата кнопка мыши, а затем бы вылетало бы всплывающее меню...
Song (2003-02-07 08:56:00) [1]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 связываешь с гридом как обычно.
UserL (2003-02-07 08:35:00) [2]Ну так???
Если обрабатывать левую кнопку - то сначала подсвечивает, а затем вылетает попупменю, а вот если на правую кнопку поставить - меню вылетает, а вот строка не подсвечиваеться.
Остаеться подсвеченной та строка, которая и была...
Song (2003-02-07 08:13:00) [3]Ну так TStringGrid.Row