Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by needatip,
28. Jan 2018
Hallo HolgerX.
Habe es genau nach deinem Beispiel hingebastelt.
Funktioniert super.:thumb:
Vielen Dank.:-D
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by needatip,
27. Jan 2018
Das ganze hat folgenden Hintergrund. Ich habe auf meinem MainForm einen VirtualStringTree als
Navigationskomponente für die einzelnen Formulare die halt in ein Panel(Containerpanel) geladen werden.
procedure TfmMain.VSTClick(Sender: TObject);
var
NewFormClass: TFormClass;
NewForm: TForm;
NodeData: PTreeData;
Node: PVirtualNode;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by needatip,
26. Jan 2018
Hab ich auch schon versucht, aber der Zugriff von Form2 geht trotzdem nicht!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by needatip,
26. Jan 2018
Sorry wollte schreiben:
procedure TMainForm.FormCreate(Sender: TObject);
var
NewFormClass: TFormClass;
NewForm: TForm;
begin
NewFormClass := TForm1;
if ContainerPanel.ControlCount > 0 then
ContainerPanel.Controls.Free;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by needatip,
26. Jan 2018
procedure TMainForm.FormCreate(Sender: TObject);
var
NewFormClass: TFormClass;
NewForm: TForm;
begin
NewFormClass := TForm1;
if ContainerPanel.ControlCount > 0 then
ContainerPanel.Controls.Free;
if Assigned(NewFormClass) then
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by needatip,
26. Jan 2018
NewForm:= NewFormClass.Create(Form1);
funktioniert aber auch nicht!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by needatip,
26. Jan 2018
Komponenten auf Form2 reagieren auch (ShowMessage funktioniert auch)
Komisch!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by needatip,
26. Jan 2018
Also Button1.Click von Form2 funktioniert.
Muss also an was anderem liegen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by needatip,
26. Jan 2018
Hallo, ich lade ein Formular(Form1) in ein Panel(ContainerPanel) das auf meinem Hauptformular(MainForm) liegt:
var MainForm: TMainForm;
...
procedure TMainForm.FormCreate(Sender: TObject);
var
NewFormClass: TFormClass;
NewForm: TForm;
begin