TitleClick & DblClick bei DBGrid

[Moony]

Hallo zusammen,

ich versuche schon seit längerem herauszufinden, wie man abfangen kann, dass wenn in einem TDBGrid ein Doppelklick in der Titelleiste ausgeführt wird, die Funktionen für einen Doppelklick nicht mehr wirksam sind.

Habe hier schon gesucht, aber keine richtige Lösung gefunden.

Habe schon folgendes probiert:

Delphi-Quellcode:

procedure TForm.DBgridDblClick(Sender: TObject);
var gc : TGridCoord;
    p  : TPoint;
begin
  p  := ScreenToClient(Mouse.CursorPos);
  gc := DBgrid.MouseCoord(p.X, p.Y);
  if (gc.X > 0) and (gc.Y > 0) then
    // Tu was
end;

...aber hier komme ich nie auf 0.

Danke & Gruß, Moony

[mkinzler]

Wie meinst du das? dass während der Abarbeiteung keine neue Events getriggert werden?

[Moony]

Nein. Ich habe ein DBGrid, in welches eine Datenmenge aus der Datenbank geladen ist. Wenn ich ein Doppelklick auf einen Datensatz ausführe, dann soll etwas mit den Daten gemacht werden. Mache ich aber einen Doppelklick auf die Titelleiste des DBGrids, dann darf nichts mit der Datenmenge gemacht werden.

[NickelM]

Hast du mal debuggt??? Und geschaut, welche MousePos der rausgibt???
Vieleicht musst du die Top und Left abzählen oder machs so

Delphi-Quellcode:

var X1, X2 : Integer
// bei MouseMove von Grid
X1 := X; //von MousePos bei Grid
Y1 := Y;

procedure TForm.DBgridDblClick(Sender: TObject); 
var gc : TGridCoord; 
    p  : TPoint; 
begin 
  p  := Point(x1,Y1);
  gc := DBgrid.MouseCoord(p.X, p.Y); 
  if (gc.X > 0) and (gc.Y > 0) then 
    // Tu was 
end;

Vieleicht gehts dann

[Moony]

So, ich habe jetzt folgende Tests gemacht:

1. p := ScreenToClient(Mouse.CursorPos); -> Doppelklick auf die Titelleiste in der ersten Spalte des Grids ergibt

Delphi-Quellcode:

     gc.x = 1
     gc.y = 3

-> Doppelklick auf den 2. Datensatz in der ersten Spalte des Grids ergibt

Delphi-Quellcode:

     gc.x = 1
     gc.y = 6

2. p := Point(myX, myY); -> Doppelklick auf die Titelleiste in der ersten Spalte des Grids ergibt

Delphi-Quellcode:

     gc.x = 1
     gc.y = 0

-> Doppelklick auf den 2. Datensatz in der ersten Spalte des Grids ergibt

Delphi-Quellcode:

     gc.x = 1
     gc.y = 3

[Moony]

Hallo,

nach langem rumprobieren, was mir welche Ergebnisse liefert, bin ich zu folgendem Ergebnis gekommen:

Delphi-Quellcode:

procedure TFPaddock.PermgridDblClick(Sender: TObject);
var gc : TGridCoord;
    p  : TPoint;
begin
  p  := Point(myX, myY);
  gc := Permgrid.MouseCoord(p.X, p.Y);
  if gc.Y > 0 then
    // Tu was
end;

Gruß & Danke an alle Anregungen,

Moony