von einer Form auf Frame zugreifen

[Nightshade]

Versuchs mal so :

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls;

type
  TFrame2 = class(TFrame)
    Label_Ueberschrift: TLabel;
  private
    procedure SetUeberschrift(const Value: string);
    function GetUeberschrift: string;
    { Private-Deklarationen }
  public
    property Ueberschrift : string read GetUeberschrift write SetUeberschrift;
    { Public-Deklarationen }
  end;

implementation

{$R *.dfm}

{ TFrame2 }

function TFrame2.GetUeberschrift: string;
begin
  result := Label_Ueberschrift.Caption;
end;

procedure TFrame2.SetUeberschrift(const Value: string);
begin
  Label_Ueberschrift.Caption := Value;
end;

end.

Und dann in unit1 :

Delphi-Quellcode:

var
  Form1: TForm1;
  Frame2 : TFrame2;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Frame2 := TFrame2.Create(self);
  Frame2.Parent := Form1;
  Frame2.Align := alClient;
  Frame2.Ueberschrift := 'Test';
end;