DBGrid -> DblClick -> Wenn auf Titel soll nichts passieren

[HolgerCW]

Hallo zusammen,

wie kann ich in dem DblClick Ereignis bei einem DBGrid abfangen, wenn ein Doppelklick auf die Titelzeile gemacht wurde ?

Gruss

Holger

[nahpets]

Hallo,

unprofessionelle Lösung:

Delphi-Quellcode:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
  DBGrid1.Tag := 1;
end;

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  If DBGrid1.Tag = 1 then ShowMessage('Wegda')
  else ShowMessage('DblClick' + #13 + DBGrid1.SelectedField.AsString);
  DBGrid1.Tag := 0;
end;

[HolgerCW]

Ist zwar nciht ganz sauber, da man nach klicken auf den Titel, erst beim zweiten Doppelklick auf eine andere Zeile (Erster setzt Tag auf 0), dann weiter kommt.

Vielleicht kennt hier jemand ja noch eine andere Lösung ?