TreeView als Menü-wie?

[Jelly]

Zitat:

Zitat von djmasi

Wie kann ich aber aus dem Hauptformular auf die einzelnen Forms zugreifen, sprich Eigenschaften ändern (zur Laufzeit)?

indem du die Eigenschaften der Form im Public-Teil deklarierst.

Zitat:

Zitat von djmasi

Und wie verhinderst du ein Flackern?

Welches Flackern ?

[Dani]

hi, alternativ könntest du auch die TJvPageList aus der JVCL probieren...

[djmasi]

Zitat:

Zitat von Jelly

indem du die Eigenschaften der Form im Public-Teil deklarierst.

Das hatte ich mir auch schon gedacht, nur leider will es bei mir nicht :?

Meine Form2-Deklaration sieht so aus:

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    FPCaption: String;
    procedure SetPCaption(ACaption: String);
  public
    { Public-Deklarationen }
    property PanelCaption: String read FPCaption write SetPCaption;
  end;

Und der Quelltext:

Delphi-Quellcode:

procedure TForm2.SetPCaption(ACaption: String);
begin
  Panel1.Caption := ACaption;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  Panel1.Caption := 'Test';
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  FPCaption := Panel1.Caption;
end;

Wenn ich den Button1 drücke, wird die Panel-Caption geändert. Wenn ich es aber von der Mainform aus machen will, passiert nix

Delphi-Quellcode:

procedure TForm1.DoSomething1Click(Sender: TObject);
begin
  Form2.PanelCaption := 'Aus Hauptform geändert';
end;

Hab es doch jetzt wie du gesagt hast, oder nicht? :wall:

[Jelly]

Das sollte eigentlich so funktionieren, abgesehen daß wenn du lesend auf deine PanelCaption zugreifst, nicht der richtige Inhalt geliefert wird. Aber das sollte nichts mit deinem Problem zu tun haben.

Hast du schon probiert von deinem Mainform mittels

Delphi-Quellcode:

form2.panel1.caption := 'Titel' ;

zu die caption zu verändern.

[djmasi]

Das war das erste was ich probiert hatte. Der Code wird ausgeführt aber es passiert nix.

Hmm, ich häng mal das Testbeispiel von mir an. Vielleicht findest du ja den Fehler

[Jelly]

Das Problem liegt darin, daß du mit Form2 nicht die Form ansprichst, die in deinem Panel angezeigt wird. ChangeModule erstellt eine neue Form und legt diese in NewDemo ab. Wenn du dir NewDemo in deiner Mainform als public deklarierst, anstatt nur lokal in der Methode Changemodule, solltest du wie folgt die Caption ändern können:

Delphi-Quellcode:

(Newdemo as TForm2).panel1.caption := 'Irgendwas' ;