Dragging Cell on Cell Click Event

I want to allow the user to click on a cell of a standard delphi dbgrid and drag the cell and drop the contents to another component like edit or listbox. Can anyone help me.
Thank you
clekkasAsked:
Who is Participating?
 
nestoruaConnect With a Mentor Commented:
HI, clekkas,
Try this (I suppose you know what to do with OnDragOver and DragDrop events):
procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if ((Button=mbLeft) and (ssCtrl in Shift)) then
  begin
   DBGrid1.BeginDrag(False, 20);
  end;
end;Sincerely,
Nestorua.
0
 
CleanupPingCommented:
clekkas:
This old question needs to be finalized -- accept an answer, split points, or get a refund.  For information on your options, please click here-> http:/help/closing.jsp#1 
EXPERTS:
Post your closing recommendations!  No comment means you don't care.
0
All Courses

From novice to tech pro — start learning today.