Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - MainMenu Item umbennenen


Martin W - Mo 03.11.03 23:56
Titel: MainMenu Item umbennenen
Hallo,

ich steh gerade vor einem weiteren Problem. Ich habe in einem Fenster oben eine Menüleiste (MainMenu1) erstellt und dort vier Items erstllt (Datei, Bearbeiten, Anzeigen, Hilfe). Vereinfacht gesagt möchte ich folgendes: Wenn ein Benutzer auf einen Button klickt soll das erste Item (Datei) zu "Windows" umbenannt werden.


Delphi-Quelltext
1:
2:
3:
4:
procedure TForm1.Button1Click(Sender: TObject);
begin
   // Jetzt soll das erste Menuitem von "Datei" nach "Windows" umbennant werden.
end;


Ich danke schon einmal für alle Antworten

Gruß
Martin

P.S.: Ich wusste nicht genau ob dieses Thread das Richtige ist, wenn nicht bitte einfach ins richtige verschieben. :?


ErnestoChe - Di 04.11.03 00:12

Hi,

das erste Item hat den Index 0:


Delphi-Quelltext
1:
2:
3:
4:
procedure TForm1.Button1Click(Sender: TObject);
begin
  MainMenu1.Items[0].Caption := 'Windows';
end;


MFG

- Ernesto -


Michael Stenzel - Di 04.11.03 00:15

Hallo Martin.

Wenn Du nur den Anzeigetext(Caption) ändern möchtes, funktioniert es so.

Delphi-Quelltext
1:
2:
3:
4:
procedure TForm1.Button1Click(Sender: TObject); 
begin 
       MainMenu1.Items.Items[0].Caption := 'Windows'
end;

Michael.

Moderiert von user profile iconTino: Code- durch Delphi-Tags ersetzt.


Martin W - Mi 05.11.03 14:30

Danke für die schnellen Antworten!!!!

Gruß
Martin[/b]