Hallo.
Deine Frames solltest du besser so einbinden:
Delphi-Quellcode:
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Panel1: TPanel; // Left: 16; Top: 48; Height: 400; Width: 700
procedure Button1Click(Sender: TObject);
private
FVisibleFrame: TFrame;
procedure SetVisibleFrame(frame: TFrame);
public
property VisibleFrame: TFrame read FVisibleFrame write SetVisibleFrame;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SetVisibleFrame(frame: TFrame);
begin
if Assigned(FVisibleFrame) then
FVisibleFrame.Free;
FVisibleFrame := frame;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
VisibleFrame := TFrame2.Create(self);
with VisibleFrame as TFrame2 do
begin
Parent := Panel;
Align := alClient;
Edit1.Text := 'Test';
end;
end;
Wenn du dann immernoch Probleme beim Wechseln der Frames hast, dann musst du mal deinen aktuellen Code zeigen.
Grüße vom marabu