MenuItem Aufschrift wechseln

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

Hallo!
In meinem Programm möchte ich eine Pause-Funktion einbauen, dazu verwende ich ein MainMenu. Das Problem ist, dass ich die Menüaufschrift wechseln lassen möchte, d.h. wenn ich Pause drücke soll da fortfahren stehen und umgekehrt. Habe gedacht ich mache das mit MainMenu.Item[].Caption, das funktioniert aber nicht.
Gibt es dazu i-eine Möglichkeit wie ich das hinbekommen kann?
Danke!

Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Mi 22.12.2010 um 12:55

Einloggen, um Attachments anzusehen!

Narses · Verfasst: Mi 22.12.10 13:57

Moin und

im Forum!

Du hast die compilierte EXE-Datei hochgeladen, leider hilft uns das nicht, dir zu helfen. Wir bräuchten den entscheidenden Abschnitt aus dem Quelltext, am besten direkt hier mit den Delphi-Tags in den Beitrag geschrieben. Wenn du den richtigen Abschnitt nicht finden kann, dann packe bitte alle *.pas, *.dfm und die *.dpr-Datei in ein ZIP-File hier in den Anhang. :idea:

(btw: es würde mich nicht wundern, wenn überhaupt nur sehr wenige Leute eine EXE-Datei aus einer unbekannten Quelle runterladen und starten... :nixweiss:

)

cu
Narses

//EDIT: Ah, du hast es schon gemerkt.

_________________
There are 10 types of people - those who understand binary and those who don´t.

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

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Pause1Click(Sender: TObject);
begin
if MainMenu1.Items[0].Caption='Pause' then
begin
Timer1.Enabled:= False;
MainMenu1.Items[0].Caption:='Fortfahren';
exit;
end;
if MainMenu1.Items[0].Caption='Fortfahren' then
begin
Timer1.Enabled:= True;
MainMenu1.Items[0].Caption:='Pause'
end;

bummi · Verfasst: Mi 22.12.10 14:14

da ist ein Ampersand drin

markieren

Delphi-Quelltext

1:	if StripHotkey(MainMenu1.Items[0].Caption)='Pause' then

etc...
Du kannst statt über Items[x] auch über die Instanz des Items zugreifen.
Ich würde Dir gerne Actions ans Herz legen...

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

Gerd Kayser · Verfasst: Mi 22.12.10 14:27

Mia9 hat folgendes geschrieben :

Habe gedacht ich mache das mit MainMenu.Item[].Caption, das funktioniert aber nicht.

Beispiel:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Pause1Click(Sender: TObject);
begin
  if Pause1.Caption = '&Pause' then
    Pause1.Caption := '&Fortsetzen'
  else
    Pause1.Caption := '&Pause';
end;

Wenn die Eigenschaft MainMenu.AutoHotKeys auf maManual steht, die "&"-Zeichen weglassen.

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

Danke, funktioniert jetzt. Denn das mit Pause1.Caption war auch meine erste und einfachere Idee, die hatte aber auch nicht funktioniert. Da ich jetzt aber auf maManual, wie Gerd Kayser gesagt hat, umgestellt habe, funktioniert es.

jaenicke · Verfasst: Mi 22.12.10 16:33

Speichere den Zustand besser außerhalb der visuellen Komponenten. Die Daten und Zustände in die GUI mit reinzubringen ist keine gute Idee.

Wenn es denn aber wirklich sein muss, dann benutze am besten Tag:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Pause1Click(Sender: TObject);
begin
  if Pause1.Tag = 0 then
  begin
    Pause1.Caption := 'Fortsetzen';
    Pause1.Tag := 1;
  end
  else
  begin
    Pause1.Caption := 'Pause';
    Pause1.Tag := 0;
  end;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme