Wie 2 gleichrangige Forms erzeugen?!

[Christian.Ossi]

Wie kann ich 2 Formulare erzeugen, die dann sozusagen beide gleichrangig sind:
Soll heißen, dass keins von beiden das andere überdecken soll - also man
z.B. mit den Maus durch klicken auf eins von beiden dieses als aktives
Formular hat und das andere dadurch inaktiv wird und umgekehrt.
Denn wenn man "normal" mit ShowModal ein Formular erzeugt, dann überdeckt dieses ja das vor-
hergehende.

Anwendungsbeispiel wäre, wenn ich ein Fenster habe aus dem ich ein kleines Tool,
wie einen MP3-Player starte und man dann dennoch auf das Fenster zugreifen kann,
aus dem man ihn gestartet hat, um z.B. ein weiteres Programm zu starten.
Weil das ja ungünstig ist, wenn ein MP3-Player alles andere überlagert?!?!


Danke schonmal!

[sniper_w]

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Form2.Show;
  Application.Run;
end

[Christian.Ossi]

Mein Programm ist so aufgebaut:
Erst kommt eine Art Dialog (Form) zum Programmstart - dieses wird unsichtbar gemacht
und startet in einer DLL eine Prozedur.
diese Prozedur innerhalb der DLL erzeugt ein neues Programmfenster (also das eigentliche Hauptfenster?!?)
Und eben auf diesem Fenster befindet sich ein Button, um ein weiteres zu öffnen (eben das angesprochene MP3-Player-Beispiel)
Dies geschieht wieder durch einen Aufruf einer DLL Prozedur der nächsten DLL, die auch das nächste Form enthält (MP3-Player-Oberfläche)

Diese beiden (also nicht das ganz am anfang unsichtbar gemachte) gleichrangig sein.

[Christian.Ossi]

Also ich habe die beiden Forms nicht direkt hintereinander im Hauptprogramm,
sondern nacheinander aus dem jeweiligen Form heraus geöffnet!

[Mystic]

Ich verstehe nicht ganz was du mit 'gleichrangig' meinst. Soll einfach nur das erste Formular (aus dem du das Zweite öffnest) immer noch zugreifbar sein? Dann nimm einfach Show statt ShowModal.

[Christian.Ossi]

ja, mit gleichrangig meine ich, dass alle erstellten Formulare immernoch zugreifbar sind.

Danke, ich probierst mal...


...also habs jetzt mal hier so eingegeben: (in der DLL)

Delphi-Quellcode:

Procedure OeffneDich; Export;
Var MMSF: TMMSF;
Begin
MMSF:=TMMSF.Create(Application);
Try
MMSF.Show;
Finally
MMSF.Release;
End;
End;

Doch wenn diese Prozedur aus dem Hauptprogramm raus aufgerufen wird, erscheint das Fenster nur für einen Bruchteil einer Sekunde und verschwindet sofort wieder?!?

[Metatron220]

Ich hab zwar nicht wirklich so viel Ahnung aber ich denke das liegt an dem

Delphi-Quellcode:

MMSF.Release;

[Christian.Ossi]

Hey danke!

Ich hab jetzt einfach das ganze try...finaly weggelassen und einfach nur Show und fertig.


Ist nur, ich hab in der Schule kein Delphi gelernt - nur bisschen Turbo Pascal.
Wir haben zwar auf unseren Rechnern Delphi 2005 Professional aber die Lehrer können das nicht.
Jetzt machen wir grad in der 12/2 eine Projektarbeit und ich hab ja immer schonmal
zuhause - "lerning by doing" rumgespielt mit Delphi. Jetzt hab ich mir die C't 13/05 besorgt
und Delphi 2005, um dort mal den Lehrern zu zeigen, was da möglich ist.
Nur scheitert es manchmal bei mir an so einfachen Sachen :lol:

[DataCool]

Hi,

durch das weglassen des "Release" sollte Dein Programm jetzt zwar laufen, aber, jede Form die Du erzeugst wird erst wieder freigegeben wenn Du Dein Programm komplett beendest.

Das mit dem try finally ist 100% richtig wenn Du mit showmodal arbeitest, weil das Programm bei showmodal solange wartet bis das Formulat geschlossen wird. Deshalb schaffst Du es in Deiner Variante auch nicht "gleichwertige" Formulare zu erzeugen.

Wenn Du mit show arbeitest, wird die Form gleich angezeigt und weiter im Quelltext gearbeitet!
In Deinem Fall :

- Form erzeugen
- Form anzeigen
- Form wieder freigeben

Meiner Meinung nach solltest Du die erzeugten Formulare in einer zusätzlichen Liste speichern und selber wieder freigeben, ist einfach superer.

Gruß Data

[Christian.Ossi]

Naja, ich hab jetzt in die OnClose jedes Formulars

Delphi-Quellcode:

Release

geschrieben.
Reicht das?