Текущий архив: 2003.02.17;
Скачать: 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 вся ветка
Текущий архив: 2003.02.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.023 c
