как добавить/удалить строку в StringGrid в позиции под курсором мыши?

[Shouldercannon]

Подскажите, пожалуйста, как добавить/удалить строку в StringGrid в позиции под курсором мыши.

[Serge_Bliznykov]

это как? подвёл мышку и строка удалилась/добавилась?
а пока мышку будете подводить, как программа поймёт, что ничего делать не надо?

[Shouldercannon]

Сообщение от Serge_Bliznykov

это как? подвёл мышку и строка удалилась/добавилась?
а пока мышку будете подводить, как программа поймёт, что ничего делать не надо?

Извиняюсь. Добавление/удаление через PopupMenu

[Аватар]

StringGrid.MouseToCell - узнать индекс строки по курсору

Здесь можно вариант вставки в #9 подсмотреть

http://www.programmersforum.ru/showt...ht=TCustomGrid

Там же где-то ниже и удаление строки есть

[Shouldercannon]

В той теме погиб на

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGrid1.InsertRow(0);
end;

Нашёл такой способ

unit Unit1;

,,,

type
  TStringGridHack = class(TStringGrid)
  protected
    procedure DeleteRow(ARow: Longint); reintroduce;
    procedure InsertRow(ARow: Longint);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TStringGridHack.DeleteRow(ARow: Longint);
var
  GemRow: Integer;
begin
  GemRow := Row;
  if RowCount > FixedRows + 1 then inherited DeleteRow(ARow)
  else Rows[ARow].Clear;
  if GemRow < RowCount then Row := GemRow;
end;

procedure TStringGridHack.InsertRow(ARow: Longint);
var
  GemRow: Integer;
begin
  GemRow := Row;
  while ARow < FixedRows do Inc(ARow);
  RowCount := RowCount + 1;
  MoveRow(RowCount - 1, ARow);
  Row := GemRow;
  Rows[Row].Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  TStringGridHack(StringGrid1).InsertRow(0);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  TStringGridHack(StringGrid1).DeleteRow(0);
end;

end.

Только как теперь передать строку, на которой было открыто PopupMenu?

[Аватар]

procedure TForm1.PopupItem1Click(Sender: TObject);
var xPos: TPoint;
    xCol,xRow: Integer;
begin
  xPos:=StringGrid1.ScreenToClient(Mouse.CursorPos);
  StringGrid1.MouseToCell(xPos.X,xPos.Y,xCol,xRow);
  ShowMessage(IntToStr(xRow));
end;