AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Menu in Klasse auslagern und über txt steuern
Thema durchsuchen
Ansicht
Themen-Optionen

Menu in Klasse auslagern und über txt steuern

Ein Thema von Christian18 · begonnen am 7. Apr 2008 · letzter Beitrag vom 8. Apr 2008
Antwort Antwort
Christian18

Registriert seit: 9. Dez 2003
Ort: Hamburg
1.279 Beiträge
 
#1

Menu in Klasse auslagern und über txt steuern

  Alt 7. Apr 2008, 16:18
Hallo,

ich kann über eine Menu.txt Datei mein Menü steuern. Es wird einfach die Anzahl der Zeilen in der txt genommen und so viele Images gezeichnet. Diese befunden sich horizontal nebeneinander. Wenn ich ein Image anklicke möchte ich nun, dass es leuchtend bleibt. (Das Active Image soll immer rot sein, also das was geklickt wurde) Wie kann ich das machen? Ich hänge meinen Code einfach mal an.

So wie ich es gemacht habe funktiniert es leider nicht. (FActiveImage)

PS: Die Caption wird nich nicht angezeigt!!!

MFG Christian18
Angehängte Dateien
Dateityp: zip menu_497.zip (250,0 KB, 2x aufgerufen)
  Mit Zitat antworten Zitat
Benutzerbild von phreax
phreax

Registriert seit: 1. Mai 2006
Ort: Dresden
147 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Menu in Klasse auslagern und über txt steuern

  Alt 7. Apr 2008, 17:34
Guten Tag, schon im Create hast Du etwas sinnlosen Code
Delphi-Quellcode:
      
  if i = 0 then
        begin
          FImage[i].Picture.LoadFromFile(FPath + 'BtnMove.bmp'); //Lade das Bild in FImage[i]
          FActiveImage:=FImage[i]; //FActive Image (Pointer!) verweist jetzt auch auf FImage[I]
          FActiveImage.Picture.LoadFromFile(FPath + 'BtnMove.bmp'); //Lade das Bild ERNEUT in FImage[i]!
        end
EDIT: Ausserdem würde ich empfehlen, mit TStringList zu arbeiten und nicht mit file, das geht hundertmal besser und man muss nicht alles von Hand machen, z.B. den Counter...

EDIT2: Und neben dem, dass mir nicht ganz klar ist, was Du eigentlich machen willst fehlt dir ein extrem wichtiges inherited Create deshalb bekommst Du immer Zugriffsverletzungen wenn auf deine Felder zugreifst... behebt den Fehler doch nicht...

EDIT3:
Delphi-Quellcode:
procedure TForm1.Start(Sender: TObject);
begin
   Menu.ActiveImage:=TImage(Sender); //Hier exception...
  //weil: interner Aufruf:
  Self.Menu.ActiveImage:=TImage(Sender);
  //Workaround:
  Form1.Menu.ActiveImage:=TImage(Sender);
  ShowMessage('Start');
end;
Die Exception tritt auf, weil imho dein Event nicht den richtigen (versteckten) Self-Paramter mitgibt... Wie man das richtig macht kann ich Dir aber leider auch nicht sagen

Gruß phreax
Und dann war da noch der junge Mann ....
... der unbedingt Schriftsteller werden wollte.
Er wollte Emotionen wecken und die Leute zum weinen bringen.
Sein Traum wurde wahr, er verfasst heute die Fehlermeldungen bei Microsoft!
  Mit Zitat antworten Zitat
Christian18

Registriert seit: 9. Dez 2003
Ort: Hamburg
1.279 Beiträge
 
#3

Re: Menu in Klasse auslagern und über txt steuern

  Alt 8. Apr 2008, 16:14
Hallo,

hat sonst jemand eine Idee? Die Informationen von phreax bringen mich nicht wirklich weiter.

MFG Christian18
  Mit Zitat antworten Zitat
Antwort Antwort


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 17:13 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