Ein TForm in eine Variable kopieren

[Karstadt]

Hallo. Ich habe ein Formular den ich aus einen bestimmten Grund im Programm an zwei stellen benutzen mus: So gehe ich vor:

Delphi-Quellcode:

  var neueform : TForm;
begin
  neueform := Tf_ag.create(Self);
  with neueform do
  begin
    FormStyle := fsNormal;
    Visible := False;
    Height := 560;
    Width := 750;
    Showmodal;
    Free;
  end;
end;

Das Problem ist, das ich in f_ag eine Funktion deklariert habe die ich in neueform aufrufen muss:

neueform.Suche;

Das geht aber nicht, undefenierter bezeichner. Warum?

[TBx]

Hallo Karstadt!

Dein Problem liegt hier:

var neueform : TForm; Du gibst hier als Typ TForm an. Richtig wäre es, den Typ Deiner Form anzugeben, dieser ist sicherlich von TForm abgeleitet.
Dann kannst DU auch alle Methoden der Form benutzen.

Gruß

onlinekater

[Karstadt]

Delphi-Quellcode:

var neueform : Tf_ag;
begin
  neueform := neueform.create(Self);
  with neueform do
  begin
    FormStyle := fsNormal;
    Visible := False;
    Height := 560;
    Width := 750;
    Showmodal;
    Free;
  end;

Nun habe ich aber eine FMeldung:
Komponente mit dieser Bezeichnung existiert bereits

[Angel4585]

Delphi-Quellcode:

 var neueform : Tf_ag; 
begin 
  neueform := Tf_ag.create(Self); //Hier war ein Fehler
  with neueform do 
  begin 
    FormStyle := fsNormal; 
    Visible := False; 
    Height := 560; 
    Width := 750; 
    Showmodal; 
    Free; 
  end;

oder hast du einfach ne zweite Variable deklariert, die "neueform" heisst?

[Karstadt]

Das funktioniert. Nun habe ich eine weiter frage.

Beim Starten kommt ein Fenster was nach 1 Sekunde verschwindert und dann kommt das eigentliche Fenster. Was kann das sein?

[Angel4585]

Geh mal auf "Ansicht -> Units" und öffne die Unit die so heisst wie das Projekt und schau dir die mal durch, such nach einem Formular, das vor dem eigentlichen Fenster erzeugt wird.

[Karstadt]

Kann das sein das dieses Verhalten deswegen auftritt, weil das Fenster was ich in die Varialbe übergebe FormStyle : fsMDIChild hat

[TBx]

Wenn das Form, auf dem Du neueform generierst ein MDIForm ist, ist das durchaus möglich.
Du kannst neueform ja mal auf nil oder über Application.CreateForm generieren.

Gruß

Thomas

[Karstadt]

Delphi-Quellcode:

var neueform : Tf_ag;
begin
  neueform := Tf_ag.create(Self); //Hier war ein Fehler
  //Das Form f_ag ist ein MDI Form das soll ich nun als Modal aufrufen
  with neueform do
  begin
    FormStyle := fsNormal;
    Visible := False;
    Height := 560;
    Width := 750;
    Showmodal;
    Free;
  end;

Zitat:

Du kannst neueform ja mal auf nil oder über Application.CreateForm generieren.

Wie meinst du das?

[Karstadt]

Zitat:

Geh mal auf "Ansicht -> Units" und öffne die Unit die so heisst wie das Projekt und schau dir die mal durch, such nach einem Formular, das vor dem eigentlichen Fenster erzeugt wird.

Was genau würde das bringen?