Überschreiben der Methode 'OnTitleClick'

[shmia]

Zitat von barnti:

ich finde bei der Komponente TDBGrid nur das Event 'OnTitleClick'. Demnach müsste das also lauten:procedure OnTitleClick(Column: TColumn); dynamic; Oder?

Das wäre aber kein Event, sondern eine virtuelle Methode.
Ich habe meine Infos von Delphi 5 während du Delphi 7 benützt. Gut möglich, dass Borland hier was geändert hat:

Delphi-Quellcode:

// Delphi 5
procedure TCustomDBGrid.TitleClick(Column: TColumn);
begin
  if Assigned(FOnTitleClick) then FOnTitleClick(Column);
end;
// Delphi 7
procedure TCustomDBGrid.OnTitleClick(Column: TColumn);
begin
  if Assigned(FOnTitleClick) then FOnTitleClick(Column);
end;

Falls dem so ist, kannst deine Komponente mit {$IFDEF } kompatibel zu D5 und D6 machen.