Forum: Programmieren allgemein
by Markus K.,
18. Apr 2004
@neolithos wie KoRn117 schon richtig gesagt hatte tut das & in der Caption wirklich nichts zur Sache, das wird von der Methode Find nicht beachtet
Tschüß Markus
Forum: Programmieren allgemein
by Markus K.,
18. Apr 2004
Hier ist noch eine andere Möglichkeit, welche alle Items des MainMenu durchsucht.
var MenuINIfile:TMenuItem;
Lauf:Integer;
begin
MenuINIfile:=TMenuItem.Create(MainMenu1);
for Lauf:=0 to MainMenu1.Items.Count-1 do
begin
MenuINIfile:=MainMenu1.Items.Items.Find('Neu');
end;
if MenuINIfile.Checked then ShowMessage('..') else ShowMessage('..');
Forum: Programmieren allgemein
by Markus K.,
18. Apr 2004
Hallo KoRn117,
ich glaube es funzt deshalb nicht, weil du nur in den Items des MainMenu suchst und nicht in den SubItems. Wenn du in dem entsprechenden Menu z.B. Datei suchst müsste es gehen.
Beispiel:
var MenuINIfile:TMenuItem;
begin
MenuINIfile:=TMenuItem.Create(Menu);
MenuINIfile:=Datei1.Find('Neu');
if MenuINIfile.Checked then ShowMessage('Funktioniert') else...