'Neu öffnen' im Hauptmenü

[Nils_13]

Hi,

wie programmiere ich ein 'Neu öffnen', wie in Delphi ?

[Die Muhkuh]

Die Dateien in einer Liste speichern und beim Auslesen für jedes Item in Menüpunkt erstellen.

[chaosben]

Nimm dir am besten einen Computer, ein Windows, ein Delphi und - zweckmäßigerweise- eine Tastatur und fange damit an, den Code mit der Tastatur einzugeben. ... Naturlich in den Code-Editor von Delphi. :stupid:


Sorry, für die blöde Antwort ... aber der Sinngehalt der Frage war zu hoch für mich.

@Nils: Was willst du denn genau wissen?

[Nils_13]

@chaosben: Starte Delphi --> Datei --> Neu öffnen
Wie mach ich das.

@spider: Schon gut, aber dann fehlt mir ja noch eine Begrenzung, irgendwann wird es auch zu lang.

[ManuMF]

Das geht auch mit INI-Dateien, Stichwort ReadSection.

Gruß,
ManuMF

[Die Muhkuh]

Mein Gott. Dann bau eine Begrenzung ein :roll:

[Nils_13]

Gut.

Wie kann ich SubMenuItems erstellen ? Ich weiß nur, dass das ganze über z.B. NewMenuItem : TMenuItem läuft und es dann noch geaddet wird. Aber wie erstelle ich dann SubMenuItems ?

[ManuMF]

Erstelle doch einfach alle MenuItems in der IDE, und mache sie zur Laufzeit nur Visible = true oder false.

Gruß,
ManuMF

[Sharky]

Zitat:

Zitat von Nils_13

... Aber wie erstelle ich dann SubMenuItems ?

Hai Nils_13,

ein Submenü-Item ist ein Submenü-Item weil es zu einem anderen MenüItem "geadded" wurde.
So gesehen sind alle Menüpunkte die Unter der "Hauptzeile" (Datei, Ansicht usw.) stehen auch nur Submenüs. Sie werden halt vom OS nur anders angezeigt.

Wenn das TItem des Menüpunktes "Neu Öffnen" den Namen reopen hat würde das ganze zum Beispiel so aussehen:

Delphi-Quellcode:

procedure TDemoForm.FormCreate(Sender: TObject);
var
  I: Integer;
  newMenueItem : TMenuItem;
begin
  for I := 1 to 10 do
  begin
     newMenueItem := MainMenu1.CreateMenuItem; // Menueintrag erzeugen
     newMenueItem.Caption := Format('Datei %d neu laden',[i]); // Caption
     newMenueItem.OnClick := OnSubClick; // OnClick Methode
     reopen.Add(newMenueItem); // An das Menütiem "reopen" anhängen (ergo -> Submenü)
  end;
end;

procedure TDemoForm.OnSubClick(Sender: TObject);
begin
  ShowMessage ('blubb');
end;

[PierreB]

Zitat:

Zitat von ManuMF

Das geht auch mit INI-Dateien, Stichwort ReadSection.

Genau so mach ich das auch. Wenn man etwas erstellt (oder zum ersten Mal öffnet) wird der Dateiname in ne Ini gespeichert, und im Menü-Item Punkt werden dann alle Dateinamen gelesen und die Dateien geöffnet. Geht ziemlich simple das ganze, guck dir einfach mal die Delphi-Hilfe mit Stichwort ini an.