Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
8. Nov 2004
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 5
procedure TCustomDBGrid.TitleClick(Column: TColumn);
begin
if Assigned(FOnTitleClick) then FOnTitleClick(Column);
end;
// Delphi 7
procedure TCustomDBGrid.OnTitleClick(Column: TColumn);
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
8. Nov 2004
Dazu musst die Procedure Titleclick überschrieben werden. Die Deklaration sieht so aus:
procedure TitleClick(Column: TColumn); dynamic;
Und somit:
TMyDBGrid = class(TDBGrid)
protected // TitleClick soll auch weiterhin protected bleiben
procedure TitleClick(Column: TColumn); override;
end;
procedure TMyDBGrid.TitleClick(Column: TColumn);