GridView
От: Shouldercannon  
Дата: 20.03.09 08:33
Оценка:
Проблема с GridView. Имею GridView, в котором есть строка или строки. Хочу при помощи PopUp меню вывести в ShowMessage строку из GridView на которой открыл меню PopUp. Как это будет выглядеть в коде?
Re: GridView
От: Hruks Россия www.hruks.com
Дата: 20.03.09 13:08
Оценка:
Здравствуйте, 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;
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.