Tryk på knap max 3 gange

unit UnitMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    iCounter  : Integer;
  public
    { Public declarations }
  end;


var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  inc(iCounter);
  if iCounter >3 then
    exit;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  iCounter :=0;
end;

Du laver en variabel der tæller til 3 og når den så bliver 3 så \"button.enabled:=false;\"

Inc tag propertye\'en når du trykker, og check når den

OnClick event\'en :

begin
  button1.Tag := button1.Tag + 1;
  button1.enabled := ( button1.Tag > 3 );
end;

/Martin

Tæt på Martin men der skal stå:

Ellers en elegant løsning

procedure TForm1.Button1Click(Sender: TObject);
begin
begin
  button1.Tag := button1.Tag + 1;
  if button1.Tag >= 3 then
  button1.enabled := false;
end;

morten_s  >> Nu vrøvler du vist ....

Jens B

Nej ulighedstegn skal bare vendes *GGG*


procedure TForm1.Button1Click(Sender: TObject);
begin
begin
  button1.Tag := button1.Tag + 1;
  button1.enabled := ( button1.Tag < 3 );
end;

Ja min mening er jo at det var den rigtige løsning jeg kom med ( små tyrk fejl har vi jo alle )

/Martin

Og løsningen var så elegant at jeg straks måtte lave en lille test *GGG*

Jeg sætter en ære i elegance *S*

Hvad med en elegant løsning til spg. nedenunder dette *G*

Gi mig lige en henvisning

http://www.eksperten.dk/spm/67423