AdvStringGrid Ole Drag Drop

Hi,

is there a way to get the row index after i drop a row?

On your Website
https://www.tmssoftware.com/site/asg28.asp

procedure Form1.OnOleDragStop(Sender:TObject; Arow,Acol: integer; var Allow: boolean);  
begin  
  ddsource := nil;  
end;

My OleDragStop looks like this

OleDragStop(Sender: TObject; OLEEffect: Integer);

Theres no ARow.

I need to know where i drop my row.

You can use something like:

procedure TForm1.AdvStringGrid1OleDragStop(Sender: TObject; OLEEffect: Integer);
var
  pt: tpoint;
  ACol,ARow: integer;
begin
  getcursorpos(pt);
  pt := AdvStringGrid1.ScreenToClient(pt);
  AdvStringGrid1.MouseToCell(pt.X,pt.Y, ACol,ARow);
  // use ARow
end;

That works thanks