Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать чтоб в 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


Наверх

Титульная страница Поиск, карта сайта Написать письмо