Überschreiben der Methode 'OnTitleClick'

[barnti]

Hallo,

ich beschäftige mich erst seit kurzer Zeit mit der Komponentenentwicklung. Habe mir schon einiges angeschaut, unter anderem das Tutorial von Sakura...

Leider weiß ich nicht wie ich ein Default-Verhalten für das Ereignis 'OnTitleClick' für meine Komponente implementiere. Hier mal der Code:

Delphi-Quellcode:

unit MyDBGrid;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs;

type
  TmyDBGrid = class (TDBGRID)
  published
    function OnTitleClick: TNotifyEvent; override;
  end;
  

procedure Register;

implementation

procedure Register;
begin
end;

{
********************************** TmyDBGrid ***********************************
}
{- TmyDBGrid.OnTitleClick }
function TmyDBGrid.OnTitleClick: TNotifyEvent;
begin
  showmessage('OnTitleClick!')
end;


end.

So scheint es nicht zu funktionieren. Wenn ich in meiner Anwendung ein Grid vom Typ 'TmyDBGrid' erzeuge klappt zwar die Darstellung, das Klicken auf die Titelzeile wird aber nicht beachtet...

Weiß jemand Rat?

[mirage228]

Hi,

deklariere die Prozedur mal so

Delphi-Quellcode:

private
  procedure TitleClicked(Sender: TObject);

und schreibe im Konstruktor dann:

Delphi-Quellcode:

constructor TMyDBGrid.Create(AOwner: TComponent);
begin
  inherited;
  OnTitleClick := TitleClicked;
end;

mfG
mirage228

[shmia]

Dazu musst die Procedure Titleclick überschrieben werden. Die Deklaration sieht so aus:

Delphi-Quellcode:

procedure TitleClick(Column: TColumn); dynamic;

Und somit:

Delphi-Quellcode:

TMyDBGrid = class(TDBGrid)
protected  // TitleClick soll auch weiterhin protected bleiben
   procedure TitleClick(Column: TColumn); override;

end;

procedure TMyDBGrid.TitleClick(Column: TColumn);
begin
   // hier mache ich mein eigenes Ding
   ....
   // und rufe dann das Standardverhalten auf
   inherited;
end;

Würde man OnTitleclick im Konstruktor setzen, würde man dem Endbenutzer dieses Event wegnehmen.

[barnti]

Hallo shmia,

ich finde bei der Komponente TDBGrid nur das Event 'OnTitleClick'. Demnach müsste das also lauten:

Delphi-Quellcode:

procedure OnTitleClick(Column: TColumn); dynamic; 
 
...

TMyDBGrid = class(TDBGrid)
protected  // TitleClick soll auch weiterhin protected bleiben
   procedure OnTitleClick(Column: TColumn); override;

end;

procedure TMyDBGrid.OnTitleClick(Column: TColumn);
begin
   // hier mache ich mein eigenes Ding
   ....
   // und rufe dann das Standardverhalten auf
   inherited;
end;

Oder?

[shmia]

Zitat:

Zitat von barnti

ich finde bei der Komponente TDBGrid nur das Event 'OnTitleClick'. Demnach müsste das also lauten:

Delphi-Quellcode:

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.

[barnti]

Hi,

ich habe beide Versionen versucht, 'OnTitleClick' und auch 'TitleClick'. Beide funktionieren nicht. Hier noch mal mein jetziger Code:

Delphi-Quellcode:

unit MyDBGrid;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs;

type
  TmyDBGrid = class (TDBGrid)
  protected
    procedure TitleClick(Column: TColumn); override;
  end;
  

procedure Register;

implementation

procedure Register;
begin
end;

{
********************************** TmyDBGrid ***********************************
}
{- TmyDBGrid.TitleClick }
procedure TmyDBGrid.TitleClick(Column: TColumn);
begin
  showmessage('OnTitleClick!')
  inherited;
end;


end.

Klicke ich im laufenden Programm auf den Titel meines erzeugten Grids passiert nichts...

[barnti]

Hallo,

ich habe den Fehler gefunden. Ich hatte vor einiger Zeit schon einmal eine Komponente mit dem gleichen Namen erzeugt. Dadurch habe ich immer auf eine falsche Unit zugegriffen...
Nachdem ich alle Dateien gelöscht habe und die aktuelle neu erzeugt habe, funktioniert alles.
Danke euch trotzdem vielmals!