Avatar billede plazm Nybegynder
23. oktober 2005 - 20:40 Der er 1 løsning

Drag ved click, men ikke dblclick

Hej

Jeg har fået et problem.
Jeg er ved at lave en liste(TStringGrid) hvor man skal kunne dobbeltklikke på og få videre oplysninger om det punkt. Men hvis man i stedet begynder at trække(Drag) det over til et andet TStringGrid
Så skal den jo sætte BeginDrag(True).

Jeg kan ikke lige regne ud hvordan det skal gøres da det jo er OnDblClick og OnMouseDown jeg bruger, og jeg kan ikke lige se hvordan jeg skal tjekke om det er et dobbeltklik der bliver triggered ved onmousedown.
Avatar billede plazm Nybegynder
30. oktober 2005 - 19:52 #1
Problemet er løst:

procedure TForm1.ListeDblClick(Sender: TObject);
begin
  dblclicked := True;
end;

procedure TForm1.ListeMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (Button = mbLeft) and (dblclicked = False) then
    Liste.BeginDrag(True)
  else
    dblclicked := False;
end;
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester