Re: Erstes Delphi Programm =)
Soweit ich weiss unterstütz der normale Button das nicht, am besten du nimmst den BitBtn.
|
Re: Erstes Delphi Programm =)
Stimmt, habe ich auch gerade ausprobiert.
|
Re: Erstes Delphi Programm =)
ahh danke =)
jetzt nochmal eine frage zu dem zähler: ich wollt ja gerne das der wenn ich auf einen falschen button klicke unten rechts oder irgendwo in einem label einzeigt wie oft ich etwas falsche gemacht habe...und wenn ich 10 mal was falsch gemacht habe das er das spiel sogar schließt. wie kann ich das machen? |
Re: Erstes Delphi Programm =)
Ich greife meinen Code von oben nochmals auf.
Delphi-Quellcode:
procedure TMainForm.TuWas;
begin if falsch then begin inc(FZaehler); LabelFehler.Caption := IntToStr(FZaehler); //diese Zeile sorgt für die Anzeige if FZaehler > 9 then begin MessageBox(Handle,'Du hast 10 Fehler gemacht, das Spiel wird beendet.','Information',MB_OK or MB_ICONINFORMATION); Close; end; end; end; |
Re: Erstes Delphi Programm =)
Delphi-Quellcode:
var
count; integer; und dann jeweils wenn du ein falschen Button klickst die Funktion aufrufen:
Delphi-Quellcode:
(aus dem Stehgreif gecoded,m eventuell Anpassen...)
procedure CheckClose;
begin; if count >= 10 then Close else Inc(Count); end; EDIT: Mhh da war wieder einer schneller :shock: |
Re: Erstes Delphi Programm =)
hab ich ausprobiert hat aber nicht geklappt =( lag meiner meinung nach an dem procedure TMainForm.TuWas;
wie kann ich das wegmachen? oder bin ich jetzt einfach zu blöod =/ ich probier den anderen noch einmal aus=) (danke für die schnellen antworten) |
Re: Erstes Delphi Programm =)
Das TuWas war ja auch nur ein Beispiel, das musst Du natürlich an Deinen Code anpassen.
|
Re: Erstes Delphi Programm =)
also irgendwie bin ich grade zu blöd... das klappt irgendwie alles nicht... zeigt mir mal pls nen beispiel quelltext wo so ein zähler eingebaut ist plz =)
|
Re: Erstes Delphi Programm =)
Ein Beispiel mit einem BitBtn und einem Label:
Delphi-Quellcode:
unit uMain;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TfrmMain = class(TForm) btnCounter: TBitBtn; lblFehler: TLabel; procedure btnCounterClick(Sender: TObject); private { Private-Deklarationen } FZaehler: Integer; public { Public-Deklarationen } end; var frmMain: TfrmMain; implementation {$R *.dfm} procedure TfrmMain.btnCounterClick(Sender: TObject); begin Inc(FZaehler); lblFehler.Caption := 'Fehler: ' + IntToStr(FZaehler); if FZaehler > 9 then begin MessageBox(Handle,'Du hast 10 Fehler gemacht, Tschüss','Information',MB_OK or MB_ICONINFORMATION); Close; end; end; end. |
Re: Erstes Delphi Programm =)
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:57 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