dbGrid OnMouseDown

mærkeligt samme problem her. Men sjovt nok virker on mouseup, så det ender nok med at det er den der skal bruges medmindre problemmet kan løses på en anden måde.

:( - Det duer ikke rigtig til beginDrag

Hvordan virker dit grid ved: dragMode := dmAutomatic
Mit reagere slet ikke ????

Niels

kan du så ikke bruge

procedure TForm1.DBGrid1StartDrag(Sender: TObject;
  var DragObject: TDragObject);
begin
showmessage('hej');
end;

istedet?

Jo, men hvordan kan jeg så redigere i grid'et ??
Troede at man skulle gøre sådan:
procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  DbGrid1.BeginDrag(false,10);
end;

Således at musen skal bevæge sig 10 pixel, før draget starter.

Niels

ja jeg kan godt se det ville være bedst med mousedown eventen.
Men jeg tror ikke der er så meget at gøre ved det dbgrid component.
Jeg prøvede med en normal stringgrid og den har ikke den fejl, så et alternativ ville være at læse fra db'en og brygge detop omkring en normal stringgrid.

Jeg ved der vil være en del bøvl ved det. Men ellers skulle du prøve et andet component.

OK - Jeg er faktisk igang med et listview

Er det iorden jeg lader spm. stå åbent lidt endnu, hvis andre har en løsning.

Niels

Hej dkn

kig lige her: http://groups.google.com/groups?hl=da&lr=&ie=UTF-8&oe=UTF-8&selm=3c6e6796%241_1%40dnews&rnum=3

Manden beskriver hvordan man skal ændre i 'DBGrids.pas' og derefter compile den -
ØH, hvordan gør jeg det (altså compiler en enkelt unit)

Niels

Da da - DET VIRKER :o)

Niels

hvis du indsætter din kode i OnCellClick i stedet for OnMouseDown

ja. det var jo lige det man manglede.