Erstes Delphi Programm =)

[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...