AGB  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein FreePascal Button.click Funktion (Einsteiger)

Button.click Funktion (Einsteiger)

Ein Thema von RobertLinde · begonnen am 19. Jun 2017 · letzter Beitrag vom 19. Jun 2017
Antwort Antwort
RobertLinde

Registriert seit: 19. Jun 2017
2 Beiträge
 
#1

Button.click Funktion (Einsteiger)

  Alt 19. Jun 2017, 10:03
Hallo,
ich schreibe gerade ein Quiz. Das ist mein Code bis jetzt:
Code:
 procedure TForm1.Button4Click(Sender: TObject);
begin
  punkte:=0;
  label3.caption:=inttostr(punkte);
  wahrheit:=false;
  panel1.caption:='Frage1';
  button1.caption:='Antwort1';
  button2.caption:='Antwort2';
  button3.caption:='Antwort3';
  button2.click;
  if wahrheit=true then begin
    punkte:=punkte+1;
    label3.caption:=IntToStr(punkte);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
wahrheit:=true;
end;
Mein Problem ist, dass die Prozedur Button2.click nur aufgerufen werden soll, wenn der Button wirklich angeklickt wird, allerdings wird sie sofort beim Start von Button4.click ausgeführt und nicht erst wenn Button2 angeklickt wird. Vermutlich ist mein Code nicht die eleganteste Lösung, aber gibt es eine Möglichkeit innerhalb dieses Codes, ohne alles zu ändern, Button2 erst aufzurufen, wenn der Button angeklickt wird??

edit: das Programm soll also nur bis
Code:
 button3.caption:='Antwort1';
ausgeführt werden. Danach soll es erst weiter ausgeführt werden, wenn Button2 angeklickt wurde.

MfG Robert

Geändert von RobertLinde (19. Jun 2017 um 10:14 Uhr)
  Mit Zitat antworten Zitat
em-sigma

Registriert seit: 8. Jul 2004
38 Beiträge
 
Delphi 2005 Personal
 
#2

AW: Button.click Funktion (Einsteiger)

  Alt 19. Jun 2017, 10:21
Verschiebe alles, was nach

button3.caption:='Antwort3';
kommt in die Button2.Click-Prozedur.

Die Zeile
mußt du natürlich löschen.

MfG, em-sigma
Allen ist das Denken erlaubt. Vielen bleibt es erspart. (Curt Goetz)
  Mit Zitat antworten Zitat
H.Bothur

Registriert seit: 25. Jun 2012
95 Beiträge
 
#3

AW: Button.click Funktion (Einsteiger)

  Alt 19. Jun 2017, 10:22
Moin,

nimm das Button2.Click raus ... und Du hast ja schon den Ansatz wie man Code schreibt wenn Butto 4 gedrückt wird - genauso machst Du das für die anderen Buttons.

Gruß
Hans
  Mit Zitat antworten Zitat
RobertLinde

Registriert seit: 19. Jun 2017
2 Beiträge
 
#4

AW: Button.click Funktion (Einsteiger)

  Alt 19. Jun 2017, 10:23
Verschiebe alles, was nach

button3.caption:='Antwort3';
kommt in die Button2.Click-Prozedur.

Die Zeile
mußt du natürlich löschen.

MfG, em-sigma
Hat funktioniert, tausend dank <3
  Mit Zitat antworten Zitat
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:

Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2017 by Daniel R. Wolf