Erstes Delphi Programm =)

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