Da müsstest du dir jeweils eine eigene Komponente ableiten, etwa so:
Delphi-Quellcode:
//...
interface
type
TMyEdit = class(TEdit)
protected
function GetRight : Integer;
function GetBottom : Integer;
published
property Right : Integer; read GetRight;
property Bottom : Integer; read GetBottom;
end;
procedure Register;
implementation
function TMyEdit.GetRight : Integer;
begin
result := Width + Left;
end;
function TMyEdit.GetBottom : Integer;
begin
result := Height + Top;
end;
procedure Register;
begin
RegisterComponents('MyCompos', [TMyEdit]);
end;