Erstes Delphi Programm =)

[Blackheart]

Soweit ich weiss unterstütz der normale Button das nicht, am besten du nimmst den BitBtn.

[DeddyH]

Stimmt, habe ich auch gerade ausprobiert.

[4nG3L]

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?

[DeddyH]

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;

[lbccaleb]

Delphi-Quellcode:

var
  count; integer;

und dann jeweils wenn du ein falschen Button klickst die Funktion aufrufen:

Delphi-Quellcode:

procedure CheckClose;
  begin;
    if count >= 10 then Close
    else Inc(Count);

  end;

(aus dem Stehgreif gecoded,m eventuell Anpassen...)


EDIT:
Mhh da war wieder einer schneller

[4nG3L]

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)

[DeddyH]

Das TuWas war ja auch nur ein Beispiel, das musst Du natürlich an Deinen Code anpassen.

[4nG3L]

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 =)

[DeddyH]

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.

[lbccaleb]

Zitat von DeddyH:

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
  TForm1 = class(TForm) //<--- ACHTUNG anpassen an deine Form!!!
    btnCounter: TBitBtn;
    lblFehler: TLabel;
    procedure btnCounterClick(Sender: TObject);
  private
    { Private-Deklarationen }
    FZaehler: Integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1; //<--- ACHTUNG anpassen an deine Form!!!

implementation

{$R *.dfm}

procedure TForm1.btnCounterClick(Sender: TObject); //<--- ACHTUNG anpassen an deine Form!!!

begin
  Inc(FZaehler);
  lblFehler.Caption := 'Fehler: ' + IntToStr(FZaehler); //Das Lebel auch so bennen "lblFehler"
  if FZaehler > 9 then
    begin
      MessageBox(Handle,'Du hast 10 Fehler gemacht, Tschüss','Information',MB_OK or MB_ICONINFORMATION);
      Close;
    end;
end;

end.

Leicht erweitert...