AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Brauche Hilfe beim Mainmenu

Ein Thema von CUBEstorm · begonnen am 23. Mär 2007 · letzter Beitrag vom 24. Mär 2007
Antwort Antwort
Seite 2 von 2     12   
marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#11

Re: Brauche Hilfe beim Mainmenu

  Alt 24. Mär 2007, 15:57
Hallo,

um den Ordinaltyp kommst du bei der CASE-Anweisung nicht drum herum. Entweder du machst es so, wie dir Jens in Beitrag #3 gezeigt hat oder du musst tricksen: Weise der Tag-Property der MenuItems jeweils eine eindeutige Konstante zu und werte diese dann aus (siehe Beitrag #7) oder verwende die Eigenschaft Command eines MenuItems, welche abhängig von der Position des Items im MainMenu ist. Noch eine Alternative wäre die Funktion AnsiIndexText():

Delphi-Quellcode:
procedure TForm1.Action1Execute(Sender: TObject);
var
  vName: String; // Variable die nachher vom Case of überprüft werden soll
begin
  with Sender as TAction do
    if ActionComponent is TMenuItem then
    begin
      vName := TMenuItem(ActionComponent).Name;
      Label1.Caption := vName;
      case AnsiIndexText(vName, [MenuItem1.Name, MenuItem2.Name]) of
        0: {MenuItem1};
        1: {MenuItem2};
      end;
    end;
end;
Mit dieser Funktion kannst du den benötigten Ordinaltyp über die Positionsbestimmung in einem String-Array erhalten.

Freundliche Grüße
  Mit Zitat antworten Zitat
CUBEstorm

Registriert seit: 8. Sep 2006
12 Beiträge
 
Turbo Delphi für Win32
 
#12

Re: Brauche Hilfe beim Mainmenu

  Alt 24. Mär 2007, 19:35
Ich bin mein Formular jetzt mal durchgegangen. Ich will die Anzahl der MenuItems jetzt mal nicht nennen *hust* über 50 *hust*

Was wäre denn allgemein die effizienteste,speicherschonenste Methode, oder Möglichkeit zB den Quelltext des Progs möglichst klein zu halten?
Hab mal die ActionList benutzt, find die auch gut da das Betätoigen eines beliebigen MenuItems schlussendlich in einer Prozedur endet. Nur verharkte ich mich da im moment tierisch mit dem CASE-Befehl, da Strings, wie sie hier die Namen der Menuitems wären nicht akzeptiert werden.

Schlussendlich läuft das bei mir auf eine Datenbank hienaus. Also Texte und Bilder, leider hab ich im moment noch keine Ahnung wie sowas funktioniert :cry:
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz