Hallo

Kann mir jemand sagen, wie ich die OnChanged Methode der TEdit Klasse überschreiben (override) kann?

Ich versuche alle Arten von Deklarationen:

markieren

Delphi-Quellcode:

TTextExtension = class(TEdit)
protected

procedure OnChanged(Sender: TObject); override;
procedure Changed(Sender:TObject); override;
procedure TTextEnxtensionOnChanged(Sender: TOjbect); override;

Egal, welche der oben genannten deklarationen, ich bekomme beim Kompilieren immer die Meldung:

Methode: ... (siehe oben) nicht in Basisklasse gefunden.
Was aber nicht stimmt. - Denn die gibt es doch...
Was mache ich falsch?

DANKE

Kannst du nicht. Die Methode gehört nicht zu TEdit sondern zu dem verwendeten TCustomEditModel.

Ohne das jetzt jetzt ausprobiert zu haben:
- Leite eine Klasse von TCustomEditModel ab und überschreibe DoChange (Die zugehörige TEdit-Instanz findest du in Owner).
- In deiner Klasse TTextExtension überschreibe DefineModelClass und gib deine abgeleitete Model-Klasse zurück.

An Uwe, geht das nicht auch per Intercept? Dann brauch er sein Programm nicht ändern, nur die Intercept unit als letztes einbinden.

Wie meinst du das genau?

Hallo

Sorry, @Uwe: Hast Du vl. ein Beispiel, ich bekomme es nicht hin.
Ich habe versucht ein neues TEdit zu erstellen (Mit Create(AOwner) & dann die OnChanged zu ändern.
Funktioniert auch nicht. (wird nicht ausgelöst)

DANKE

Zitat von Uwe Raabe:

Wie meinst du das genau?

So hier (nicht auf die bedürfnisse des OP sondern nur als beispiel)

zusammenfalten · markieren

Delphi-Quellcode:

unit Interceptors;
interface
uses
{hier die original unit(s) rein die man intercepten möchte}
  Vcl.StdCtrls; // es wird bestimmt was fehlen zum kompilieren, ich habe nur das wichtigste per copy/paste eingefügt um zu demonstrieren was ich meine

type
 TButton = class(Vcl.StdCtrls.TButton)
  strict private
    fLastClickTime: TDateTime;
    fClickWaitPeriod: Int64;
    fEnableClickWaitPeriod: Boolean;
  public
    constructor Create(AOwner: TComponent); override;
    procedure Click; override;
  public
    property ClickWaitPeriod: Int64 read fClickWaitPeriod
      write fClickWaitPeriod;
    property EnableClickWaitPeriod: Boolean read fEnableClickWaitPeriod
      write fEnableClickWaitPeriod;
  end;

implementation

{ TButton }

constructor TButton.Create(AOwner: TComponent);
begin
  fClickWaitPeriod := 1;
  fLastClickTime := Now;
  fEnableClickWaitPeriod := True;
  inherited Create(AOwner);
end;

procedure TButton.Click;
begin
  if (EnableClickWaitPeriod and (SecondsBetween(Now, fLastClickTime) >=
    ClickWaitPeriod)) then
  begin
    fLastClickTime := Now;
    inherited Click;
  end
  else if not EnableClickWaitPeriod then
    inherited Click
  else
    Beep;
end;


end.

Wenn man nun in einem projekt diese unit als letztes einbindet, funktioniert der button etwas anders.
So sollte man doch auch sein Event abändern können, oder?

Also...

Ich habe jetzt einen Ansatz gefunden, der aber auch nicht wie gewünscht funktioniert...

markieren

Delphi-Quellcode:

constructor TTextExtension.Create(AOwner: TComponent);
begin

     inherited Create(AOwner);
     (self as TEdit).OnTyping:= TextChanged;
end;

Löst zwar den Event aus, aber nicht bei OnTyping, sondern erst, wenn ich die Komponente verlasse. (selbes auch mit (self as TEdit).OnChanged :=

Ideen? - DANKE

Okay.

Es ist für mich etwas kurios, aber es funktioniert jetzt...

Die Procedure heißt Typing(Sender: TObject);
& beim Create der Komponente genügt:

markieren

Delphi-Quellcode:

inherited Create(AOwner);
self.OnTyping := Typing

Dann funktioniert es.
DANKE für eure Hilfe

Unter FMX ist eben manches anders, OnChangeTracking hätte vermutlich auch funktioniert.