AdvStringGrid Ole Drag Drop

VCL TMS VCL UI Pack
1

Hi,

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

On your Website

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.

2

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;
3

That works thanks