Komponenten Propertys

[DeddyH]

Was meinst Du mit Property, sowas?

Delphi-Quellcode:

type
  TFormMitMemos = class(TForm)
  private
    function GetMemosVisible: Boolean;
    procedure SetMemosVisible(const Value: Boolean);
    ...
  public
    property MemosVisible read GetMemosVisible write SetMemosVisible;
    ...
  end;

...

function TFormMitMemos.GetMemosVisible: Boolean;
begin
  Result := MemoDings.Visible and MemoBums.Visible;
end;

procedure TFormMitMemos.SetVisibe(const Value: Boolean);
begin
  MemoDings.Visible := Value;
  MemoBums.Visible := Value;
end;