Wir hatten ja gerade das problem, dass da jemand ein IntegerEdit haben wollte. Nun wollte ich das mal probieren und ein TIntEdit von TEdit ableiten.
Mein Ansatz:
Delphi-Quellcode:
type
TIntEdit = class(TCustomEdit)
private
FValue: Integer;
procedure SetText(Value: Integer); override;
function GetText: Integer;
property
Text: Integer read GetText write SetText;
end;
procedure TIntEdit.SetText(Text: Integer);
begin
FText := Value;
end;
function TIntEdit.GetText: Integer;
begin
Result := Value;
end;
Nur sagt er mir da:
Zitat:
[Error] Unit1.pas(13): Method 'SetText' not found in base class
Woher weiß ich nun wie die Methoden in der basisklasse heißen, wenn ich die Sourcen nicht habe?
Und zweitens: kann mein Ansatz zum Erfolg führen?