AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Bilder aufrufen wenn man buttons drückt.

Bilder aufrufen wenn man buttons drückt.

Ein Thema von Bellla · begonnen am 15. Dez 2010 · letzter Beitrag vom 15. Dez 2010
Antwort Antwort
Seite 1 von 2  1 2   
Bellla

Registriert seit: 14. Dez 2010
36 Beiträge
 
#1

Bilder aufrufen wenn man buttons drückt.

  Alt 15. Dez 2010, 18:57
Hallo.
Ich habe ein klienes Problem. ich habe ein programm geschrieben, auf dem man mehrere Buttons hat.
wenn man button1 drückt kommt ein bild, drückt man button1 nochmal kommt ein anders bild.
ich habe hier eine Bilderschleife verwendet. Nach dem letzten bild kommt das startbild. Button1 ist nun verschwunden, man sieht nun button2.
wenn man button2 drückt sollen jetzt wie bei button1 fotos kommen.
ich habe genau das selbe verfahren angewendet, jedoch kommt kein Bild wenn ich Button 2 drücke.
Hier der Quelltext
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    B1: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    B2: TButton;
    B3: TButton;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    procedure B1Click(Sender: TObject);
    procedure B2Click(Sender: TObject);
   private
    { Private-Deklarationen }
   public
    { Public-Deklarationen }
   end;

   var
Form1: TForm1;
status:integer;
i:integer;

implementation

{$R *.dfm}

procedure TForm1.B1Click(Sender: TObject);
begin
   case status of
        0:
   begin
   sleep ( 500);
   image2.visible:=true;
   image1.visible:=false;
   status:=2;
   end;


   2:
   begin
   sleep(500);
   image3.visible:=true;
   image2.visible:=false;
   status:=3;
   end;

   3:
   begin
   sleep(500);
   image4.visible:=true;
   image3.visible:=false;
   status:=4;
   end;


   4:
   begin
   sleep(500);
   image1.visible:=true;
   image4.visible:=false;
   status:=5 ;
   B2.visible:=true;
   B1.Visible:=false;
   end;
   end;
   end;






   procedure TForm1.B2Click(Sender: TObject);

   begin
   case status of
        0:
   begin
   sleep ( 500);
   image5.visible:=true;
   image1.visible:=false;
   status:=2;
   end;


   2:
   begin
   sleep(500);
   image6.visible:=true;
   image5.visible:=false;
   status:=3;
   end;

   3:
   begin
   sleep(500);
   image7.visible:=true;
   image6.visible:=false;
   status:=4;
   end;


   4:
   begin
   sleep(500);
   image8.visible:=true;
   image7.visible:=false;
   status:=5 ;
   B2.visible:=true;
   B1.Visible:=false;
   end;
   end;
   end;

end.


ich hoffe ich habe diesmal alles richtig gemacht.
danke im vorraus
  Mit Zitat antworten Zitat
Bernerbaer
(Gast)

n/a Beiträge
 
#2

AW: Bilder aufrufen wenn man buttons drückt.

  Alt 15. Dez 2010, 19:07
Du musst den Status wieder zurücksetzen auf 0
Delphi-Quellcode:
....
4:
   begin
      sleep(500);
      image1.visible:=true;
      image4.visible:=false;
      status:=0;
      B2.visible:=true;
      B1.Visible:=false;
   end
das gilt auch für die Prozedur B2Click
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.533 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Bilder aufrufen wenn man buttons drückt.

  Alt 15. Dez 2010, 19:13
Zitat von Bernerbaer:
Du musst den Status wieder zurücksetzen auf 0
...was einem beim Debuggen und Beobachten der Variablen auffallen sollte.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Bellla

Registriert seit: 14. Dez 2010
36 Beiträge
 
#4

AW: Bilder aufrufen wenn man buttons drückt.

  Alt 15. Dez 2010, 19:22
ich hab den status auf 0 gesetzt, nur kommt dort wo ich es hingeschrieben ein fehler



Delphi-Quellcode:
3:
begin
sleep(500);
image8.visible:=true;
image7.visible:=false;
status:=4;
B2.visible:=true;
B1.Visible:=false;

4: [COLOR="MediumTurquoise"]undefinierter bezeichner[/COLOR]
begin
sleep(500);
image1.visible:=true;
image8.visible:=false;
status:=5;
B2.visible:=true;
B1.Visible:=false;
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.533 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Bilder aufrufen wenn man buttons drückt.

  Alt 15. Dez 2010, 19:24
Wo ist denn das end zum begin im case-Label 3?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Bellla

Registriert seit: 14. Dez 2010
36 Beiträge
 
#6

AW: Bilder aufrufen wenn man buttons drückt.

  Alt 15. Dez 2010, 19:28
ahh danke
dehalb gings nicht
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.533 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: Bilder aufrufen wenn man buttons drückt.

  Alt 15. Dez 2010, 19:30
Deshalb können wir nur immer wieder dazu raten, ordentlich einzurücken, dann wäre das schon rein optisch aufgefallen, dass da etwas fehlt.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#8

AW: Bilder aufrufen wenn man buttons drückt.

  Alt 15. Dez 2010, 19:42
Warum kommt mir das Thema so bekannt vor?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.533 Beiträge
 
Delphi 11 Alexandria
 
#9

AW: Bilder aufrufen wenn man buttons drückt.

  Alt 15. Dez 2010, 19:45
Warum kommt mir das Thema so bekannt vor?
Keine Ahnung
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#10

AW: Bilder aufrufen wenn man buttons drückt.

  Alt 15. Dez 2010, 19:59
Und warum wird da jetzt ein neuer Thread angefangen?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 10:50 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