Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Gleiche Form mehrmals erstellen (https://www.delphipraxis.net/3203-gleiche-form-mehrmals-erstellen.html)

phlux 28. Feb 2003 15:18


Gleiche Form mehrmals erstellen
 
Ahoi!
Also ich möchte für mein Programm so ne Art Lesefunktion von irgendwelchen Einträgen erstellen, diese Einträge sollen in einer neuen Form angezeigt werden. Diese Form soll jedoch auch ausserhalb der ersten From verschiebbar sein (also nix mit Child), so wie bei Outlook sobald man ne mail sich anguckt die in einem neuen fenster erscheint. Ich kriegs nicht gebacken, so einfach es auch klingt :evil:

sakura 28. Feb 2003 16:09

Ist eigentlich ganz einfach. Mal angenommen Dein Form heisst frmAnsicht und die dazugehörige Klasse heisst TfrmAnsicht.
Delphi-Quellcode:
with TfrmAnsicht.Create(Self) do
try
  // z.b.
  MemoText.Text := 'Das ist der darzustellende Text';
  Show; // oder ShowModal;
finally
  Free;
end;
...:cat:...

APP 28. Feb 2003 16:22

Hallo,

Mal so schnell zusammengeschnippelt:
Du benötigst eine Form als Vorlage und ein Hauptformular, von dort aus erzeugst Du dann Instanzen deiner Vorlage.

Delphi-Quellcode:
INTERFACE

USES
   Windows,
   Messages,
   SysUtils,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   FVorlage; // beinhaltet Form-Klasse "TaFVorlage" die Du mit Delphi erstellt hast

VAR
   aForm : TaFVorlage; // Formvorlage


 PROCEDURE TFMain.ShowErrorDLG; // Dialog zeigen
BEGIN
   aForm := TaFVorlage.Create(Application);
   WITH aForm DO
      BEGIN
         TRY
            aSaveDialog := TSaveDialog.Create(aForm);
            Caption := 'SuperDuper'
            Showmodal;
         FINALLY
            aSaveDialog.Free;
            Free;
         END;
      END;

Ups, Sakura war schneller, aber jetzt ists schon passiert! :oops:

phlux 28. Feb 2003 17:06

Hi!
Beide Methoden sind ja fast gleich. Danke klappt!!!


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:13 Uhr.

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