Entwickler-Ecke :: Thema anzeigen - Wie erstellt man ein Start-Menü

Bordstein - Di 11.10.11 18:43

Moderiert von Narses: Abgetrennt von [url=http://www.delphi-forum.de/viewtopic.php?p=652188#652188]hier[/url]

Danke erstmal für deine Antwort.

Ich will inzwischen eine Art Übersicht (als Hauptfenster) machen, in dem alle Delphi-Programme die ich geschrieben habe aufgelistet sind. Durch Knopfdruck soll jedes Program startbar sein, d.h. ich will eine Übersicht/Quickstart machen, bei dem sich das Hauptfenster nach Auswahl des gewünschten Programmes wieder schließt und das ausgewählte Programm offen bleibt.

Die Übersicht habe ich schon und alles funktioniert soweit, aber das Übersichts(Haupt-)fenster bleibt eben immer im Hintergrund offen, wenn ich ein Programm geöffnet habe.

Moderiert von Narses: Überflüssige Zeilenumbrüche/Leerzeilen entfernt.

Delete - Di 11.10.11 18:49

Delphi-Quelltext

1:
2:

Shellexecute{{Mein Programm});
Close;

Sollte eigentlich gehen.

Bordstein - Di 11.10.11 21:01

Also ich lade die exe mal hoch, dann könnt ihr reinschauen.

Ich will, dass alle Programme zu einem zusammen gefasst werden (sind sie momentan auch),

und dass dann zum Beispiel wenn ich auf Taschenrechner klicke,

der Taschenrechner aufgeht und das ursprüngliche Fenster geschlossen wird.

Moderiert von Narses: Bilder als Anhang hochgeladen.

platzwart - Di 11.10.11 21:05

Luckie hat folgendes geschrieben :

Delphi-Quelltext

1:
2:

Shellexecute{{Mein Programm});
Close;

Sollte eigentlich gehen.

Blup - Fr 14.10.11 12:51

Es handelt sich offensichtlich nicht um einzelne Programme, sondern um Formulare innerhalb eines Programms.

Ich empfehle für Units und Formulare aussagekräftigen Namen zu vergeben, sonst verliert man den Überblick.

Application.CreateForm muss nur für das Startformular aufgerufen werden.
Die anderen Formulare werden vom Startformular erzeugt und aufgerufen.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TStartform.ShowMyForm(AFormClass: TFormClass);
var
  F: TForm;
begin
  Visible := False;
  try
    F := AFormClass.Create(nil);
    try
      F.ShowModal;
    finally
      F.Free;
    end;
  finally
    Visible := True;
  end;
end;
{...}
procedure TStartform.Button1Click(Sender: TObject);
begin
  ShowMyForm(TForm4);
end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!