Interface erstellen und rückgabe

[EWeiss]

Zitat:

Zitat von implementation (Beitrag 1181703)

Dann musst du in der SetWidth-Methode überprüfen, ob sie schonmal aufgerufen wurde.

Mach ich mehr oder weniger ja auch..

Delphi-Quellcode:

procedure TSkinPanel.SetWidth(const Width: Integer);
begin

  FWidth := Width;
end;

Ich behandle nachfolgende veränderungen der Weite einfach nicht.
Aber mein problem hinsichtlich der möglichen Eingabe lößt das nicht.

Eine behandlung sähe dann so aus

Delphi-Quellcode:

procedure TSkinPanel.SetWidth(const Width: Integer);
begin
  MoveWindow(bla.. bala..

  FWidth := Width;
end;

gruss

[geskill]

Hallo,
wegen der unerwünschten Eingaben. Du könntest ja 2 Interfaces bauen:

Delphi-Quellcode:

type
  ISimpleButton = interface
    ['{B7281ABB-ED9A-4018-B651-41DFBFAE730A}']

    function GetText: WideString;
    procedure SetText(Value: WideString);

    property Text: WideString read GetText write SetText;
  end;

  IAdvancedButton = interface(ISimpleButton)
    ['{6C10BCC7-87BE-45B1-9613-44EF840DE4AA}']

    function GetWidth: Integer;
    procedure SetWidth(Value: Integer);

    function GetSimpleButton: ISimpleButton;

    property Width: Integer read GetWidth write SetWidth;
  end;

Dann könntest du von einem TAdvancedButton Objekt dir intern das IAdvancedButton speichern, extern aber nur ISimpleButton zur Verfügung stellen.

Delphi-Quellcode:

type
  TSimpleButton = class(TInterfacedObject, ISimpleButton)
  private
    FText: WideString;
  protected
    function GetText: WideString;
    procedure SetText(Value: WideString);

  public
    constructor Create;

    property Text: WideString read GetText write SetText;
  end;

  TAdvancedButton = class(TSimpleButton, IAdvancedButton)
  private
    FWidth: Integer;
  protected
    function GetWidth: Integer;
    procedure SetWidth(Value: Integer);

  public
    constructor Create;

    function GetSimpleButton: ISimpleButton;

    property Width: Integer read GetWidth write SetWidth;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TSimpleButton }

constructor TSimpleButton.Create;
begin
  inherited Create;
end;

function TSimpleButton.GetText: WideString;
begin
  Result := FText;
end;

procedure TSimpleButton.SetText(Value: WideString);
begin
  FText := Value;
end;

{ TAdvancedButton }

constructor TAdvancedButton.Create;
begin
  inherited Create;
end;

function TAdvancedButton.GetSimpleButton: ISimpleButton;
begin
  Result := Self;
end;

function TAdvancedButton.GetWidth: Integer;
begin
  Result := FWidth;
end;

procedure TAdvancedButton.SetWidth(Value: Integer);
begin
  FWidth := Value;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  AdvancedButton: IAdvancedButton;

  SimpleButton: ISimpleButton;
begin
  AdvancedButton := TAdvancedButton.Create;

  AdvancedButton.Width := 126;
  AdvancedButton.Text := 'lalala';

  ShowMessage(IntToStr(AdvancedButton.Width) + ' ' + AdvancedButton.Text);

  SimpleButton := AdvancedButton.GetSimpleButton;

  ShowMessage(SimpleButton.Text);

  SimpleButton.Text := 'blubblub';

  ShowMessage(IntToStr(AdvancedButton.Width) + ' ' + AdvancedButton.Text);
end;

Grüße

[EWeiss]

Danke ;)
Werde mir das gleich mal anschauen ob etwas in der art mein problem beseitigt.

EDIT:
So wie das aussieht ist das ein mehr an schreibarbeit aber letztendlich ist Width trotzdem public.
Muss das wohl innerhalb der function Width selbst händeln.
Die Weite ignorieren wenn sie schon gesetzt ist.

gruss