Hi,
hab gerade deinen
QC nicht zur Hand, deshalb kurz die einfache Beschreibung.
Du definierst dir die Width (ausgeklappt) als Property und setzt die über ein Methode
Delphi-Quellcode:
type
TDeineKlasse = class(TObject)
private
FWidth : Integer;
FRealWidth : Integer;
protected
procedure setWidth(const Width : Integer);
public
property Width : Integer read FWidth write setWidth;
end;
Und in dem Setter setzt du dann einfach Realwidth und Width.
Gruß Der Unwissende