AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

eine Form mehrfach öffnen

Ein Thema von Remedy7 · begonnen am 9. Sep 2010 · letzter Beitrag vom 11. Sep 2010
Antwort Antwort
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.869 Beiträge
 
Delphi 11 Alexandria
 
#1

AW: eine Form mehrfach öffnen

  Alt 10. Sep 2010, 16:25
Dann sollte man aber auch keinen Owner angeben. Zudem würde ich dann FreeAndNil() verwenden.
Markus Kinzler
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#2

AW: eine Form mehrfach öffnen

  Alt 10. Sep 2010, 16:33
Formulare werden mit Release freigegeben und nicht mit Free.
  Mit Zitat antworten Zitat
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#3

AW: eine Form mehrfach öffnen

  Alt 10. Sep 2010, 20:07
Moin,

was ihr hier treibt gefällt mir nicht. Form-Array, beim Create als Sender was angeben, warum das ? Jo und noch Holzhammer a la Random.
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure frmxClose(Sender: TObject; var Action: TCloseAction);
  public
    { Public-Deklarationen }
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var i,x,y : Integer;
    NewForm : TForm;
begin
  for i := 1 to 7 do begin
    NewForm := TForm.Create (Self);
    NewForm.Name := 'frm' + IntToStr(i);
    NewForm.Caption := 'Form Nr.: ' + IntToStr(i);
    NewForm.Left := i * 100;
    NewForm.Top := i * 50;
    NewForm.OnClose := frmxClose;
    NewForm.Show;
  end;
end;
Da ist vorerst jetzt Schluss. Rest ist im Anhang (also komplettes Projekt). Wegen der bevorstehenden Delphi-Tage will ich die Download-Zahl sehen. Das sind immer solche Themen, über die man schön streiten kann. Au Mann, das geht ja nur gezippt.
Angehängte Dateien
Dateityp: zip Forms.zip (1,3 KB, 24x aufgerufen)
Gruß
Hansa
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#4

AW: eine Form mehrfach öffnen

  Alt 11. Sep 2010, 10:17
[...] beim Create als Sender was angeben, warum das ?
Das ist der Owner und sobald der z.B. beim Beenden freigegeben wird, gibt er die erzeugten Objekte (hier: Buttons) auch frei.
Das ergibt schon Sinn.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.869 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: eine Form mehrfach öffnen

  Alt 11. Sep 2010, 10:52
Wenn man sich eine Form automatisch erzeugen lässt ist das dann Application

@Hansa:
-Wenn er ein zufällige Größen der Fenster haben will, warum nicht?
-Bei deiner Lösung werden die Fenster beim Schliessen gleich wieder freigegeben, was nicht unbedingt erwünscht ist.
-Man kann nicht mehr auf die Instanzen zugreifen, da keine Referenzen mehr existieren
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#6

AW: eine Form mehrfach öffnen

  Alt 11. Sep 2010, 11:54
Moin Hansa,
was hast du jetzt bahnbrechendes gezeigt

MfG
Fabian
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:51 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