inherit

[segal]

i want to change OnChange event of the editbox. i know i have to inherit and override but i don't know how to do it exactly. help me please

[Thomas Stutz]

Hi,

Are you writing a TEdit descendant (new component) ?

tom

[segal]

yes

[Thomas Stutz]

Write something like that:

[font  size=2 face="Courier New"][font color="#000000"]TYourEditClass = class(TCustomEdit)
  private
    [font color="#000080"]//...
  [/font]protected
    procedure Change; override;
end;

[font color="#000080"]//...

[/font]implementation

[font color="#000080"]//...

[/font]procedure TYourEdit.Change;
begin
 inherited;
 [font color="#000080"]// Your code...
[/font]end;
[/font][/font]

[segal]

I need to change the declaration of change (add more variables to procedure) but when i write my declaration i get error the my declaration differs from previous

[Thomas Stutz]

how does your code look like?

[segal]

unit EditAlex1;

interface

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

type
  TEditAlex1 = class(TCustomEdit)
  private
    { Private declarations }
  protected
    procedure Change (Sender: TObject; var I: Integer); override;
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure TEditAlex1.Change (Sender: TObject; var I: Integer);
begin
  Inherited;
end;

procedure Register;
begin
  RegisterComponents('Samples', [TEditAlex1]);
end;

end.

[Simon Grossenbacher]

You have to overload the procedure and not override.

[segal]

i tried it then i get error on the "inherited;", the error is: incompatible types

[Tokter]

inherited(Sender);

or

Change(Sender);

instead..

[segal]

on "inherited (Sender);" i still get incompatible types error
on "Change ;" i don't get any errors but i get runtime exception "property doesn't exist"