Проблема с GridView. Имею GridView, в котором есть строка или строки. Хочу при помощи PopUp меню вывести в ShowMessage строку из GridView на которой открыл меню PopUp. Как это будет выглядеть в коде?
Здравствуйте, Shouldercannon, Вы писали:
S>Проблема с GridView. Имею GridView, в котором есть строка или строки. Хочу при помощи PopUp меню вывести в ShowMessage строку из GridView на которой открыл меню PopUp. Как это будет выглядеть в коде?
А про какой грид речь?
Если про TStringGrid, то ячейку можно получить так:
TStringGrid на onContextPopup повесить обработчик:
procedure TForm1.StringGrid1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
var
Col: Integer;
Row: Integer;
begin
StringGrid1.MouseToCell(MousePos.X, MousePos.Y, Col, Row);
Menu1.Caption := StringGrid1.Cells[Col, Row];
end;
где
Menu1: TMenuItem,
PopupMenu1: TPopupMenu,
StringGrid1: TStringGrid
Если нужна не ячейка, а строка, то просуммировать ячейки по строке:
for I := 0 to StringGrid1.ColCount - 1 do
begin
Menu1.Caption := Menu1.Caption + StringGrid1.Cells[I, Row] + ' ';
end;