24.10.2012 14:46, Martin Schreiber пишет: > On Tuesday 23 October 2012 19:42:16 Alexandre Minoshi wrote: >> Hello, Martin! >> >> How i can use drag and drop? >> >> For example drag data from one stringgrid and drop to second stringgrid? >> > An example is here: > https://gitorious.org/mseuniverse/mseuniverse/trees/master/attic/msedocumenting/mse/trunk/help/tutorials/widgets/grids/dragdropgrid > > Martin > Ok. And if I need to move row in stringgrid?
I try next variant : ================================================== procedure tmainfo.on_beforedragbegin(const sender: TObject; const apos: pointty; var dragobject: tdragobject; var processed: Boolean); var co1: gridcoordty; begin with tstringgrid(sender) do begin if cellatpos(apos,co1) = ck_data then begin tstringdragobject.create(sender,dragobject,apos).data := inttostr(co1.row); // <-remember row number processed:= true; end; end; end; procedure tmainfo.on_beforedragover(const sender: TObject; const apos: pointty; var dragobject: tdragobject; var accept: Boolean; var processed: Boolean); var co1: gridcoordty; begin if dragobject is tstringdragobject then begin with tstringgrid(sender) do begin if (sender = dragobject.sender) and //<-- check if sender current (cellatpos(apos,co1) = ck_data) then begin accept:= true; processed:= true; end; end; end; end; procedure tmainfo.on_beforedragdrop(const sender: TObject; const apos: pointty; var dragobject: tdragobject; var processed: Boolean); var co1: gridcoordty; begin if dragobject is tstringdragobject then begin with tstringgrid(sender) do begin if (cellatpos(apos,co1) = ck_data) then begin moverow(strtoint(tstringdragobject(dragobject).data), co1.row); //<-- move row processed:= true; end; end; end; end; ============================================= This code is work fine, but it is correct? And what is different between "accept" and "processed" in on_beforedragover procedure? Yours, Alexandre Minoshi ------------------------------------------------------------------------------ Everyone hates slow websites. So do we. Make your web apps faster with AppDynamics Download AppDynamics Lite for free today: http://p.sf.net/sfu/appdyn_sfd2d_oct _______________________________________________ mseide-msegui-talk mailing list mseide-msegui-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
