Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Mehrfach erstellte Form ansprechen (https://www.delphipraxis.net/3027-mehrfach-erstellte-form-ansprechen.html)

Yheeky 18. Feb 2003 22:08


Mehrfach erstellte Form ansprechen
 
Hi,

mit folgenden Zeilen erstelle ich eine Form mehrere Male bzw. lasse Sie mehrere Male öffnen:

Code:
public
   MailFormLesen : TForm;
   NummerMailLesenForms : Integer;
.
.
.
   Application.CreateForm(TFormEMailLesen, Form1.MailFormLesen);
   Form1.MailFormLesen.Name := 'FormMailLesen' + IntToStr(Form1.NummerMailLesenForms);
   Form1.MailFormLesen.FormStyle := fsNormal;
   Form1.MailFormLesen.WindowState := wsNormal;
   Form1.MailFormLesen.Show;
   Inc(Form1.NummerMailLesenForms);
Wie kann ich jetzt in der jeweils erstellten Form auf eine Komponente zugreifen, die sich in der Form befindet?

Gruß Yheeky

nailor 18. Feb 2003 22:34

Re: Mehrfach erstellte Form ansprechen
 
Zitat:

Zitat von Yheeky
Code:
Application.CreateForm(TFormEMailLesen,Form1.MailFormLesen);

Form1.MailFormLesen gibt an, wie die Form heist

Zitat:

Zitat von Delphi Help
Creates a new form.

procedure CreateForm(FormClass: TFormClass; var Reference);

Description

Call CreateForm to dynamically create a form at runtime. Developers do not need to add code for creating most forms, because typically one or more calls to CreateForm are added automatically to the Delphi project's main statement part when using the form designer.

CreateForm creates a new form of the type specified by the FormClass parameter and assigns it to the variable given by the Reference parameter. The owner of the new form is the Application object.

Note: By default the form created by the first call to CreateForm in a project becomes the application’s main form.



Alle Zeitangaben in WEZ +1. Es ist jetzt 04:05 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz