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

[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;