moin
Kann man nur die Read-Eigenschaft Text von einem TEdit überschreiben, wenn man sich eine Komponente von TEdit ableitet?
Delphi-Quellcode:
type
TTemperatureEdit = class(TEdit)
private
{ Private declarations }
procedure SetText(Value : String);
function ReadText : String;
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property Text : String Read ReadText Write SetText;
end;
procedure Register;
implementation
procedure TTemperatureEdit.SetText(Value : String);
begin
inherited Text := Value;
end;
function TTemperatureEdit.ReadText : String;
begin
Result := 'mein text';
end;
end.
habs so probiert bekomme aber einen Stackoverflow.