Wie erstellt man ein Start-Menü

Bordstein · Hält's aus hier Beiträge: 7

Moderiert von Narses: Abgetrennt von [url=www.delphi-forum.de/...88#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.

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:
2:

Shellexecute{{Mein Programm});
Close;

Sollte eigentlich gehen.

Bordstein · Hält's aus hier Beiträge: 7

Danke, ich werde es gleich mal probieren!

HenryHux · Verfasst: Di 11.10.11 18:18

Bei den Uses müsstest du dann aber noch ShellApi ergänzen.

lg

Ehemaliges Mitglied Erhaltene Danke: 1

Na ja, das Starten hat er wohl schon hinbekommen.

Bordstein · Hält's aus hier Beiträge: 7

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.

Einloggen, um Attachments anzusehen!

platzwart · Verfasst: Di 11.10.11 20:05

Luckie hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:

Shellexecute{{Mein Programm});
Close;

Sollte eigentlich gehen.

?

_________________
Wissenschaft schafft Wissenschaft, denn Wissenschaft ist Wissenschaft, die mit Wissen und Schaffen Wissen schafft. (myself)

Blup · Beiträge: 176 Erhaltene Danke: 44

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.

markieren

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;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme