button deaktivieren

[Bx3]

ich habe bei mir nen button eingebaut,
allerdings soll gewährleistet sein das man diesen auch nur einmal anklicken kann.
danach soll er inaktiv werden, am besten grau eingefärbt.

lg
Bx3

[mkinzler]

Button.Enabled := False;

[DeddyH]

Delphi-Quellcode:

procedure TDeinForm.ButtonWuppdiClick(Sender: TObject);
begin
  //Dein Code
  ButtonWuppdi.Enabled := false;
end;

[STS301]

Delphi-Quellcode:

procedure TForm1.Buttin1Click;
var
  i: integer;
begin
inc(i,1); //er zählt i wenn der Button angeklickt wird immer eins hoch
if i = 1 then
begin
;
end
else
button1.enabled:= false;

[DeddyH]

@STS301: das wird mit einer lokalen Variablen aber so nicht funktionieren

[mkinzler]

man kann doch direkt den Status Abfragen:

if Button.Enabled then ...

[STS301]

???bei mir funktioniert es??? wie würdest du es machen

[Fussball-Robby]

Zitat von mkinzler:

man kann doch direkt den Status Abfragen:

if Button.Enabled then ...

Ist aber nicht nötig, da man eh nicht auf einen Button klicken kann, der disabled ist

[mkinzler]

Zitat von STS301:

???bei mir funktioniert es??? wie würdest du es machen

Siehe #6

[Fussball-Robby]

Zitat von STS301:

Delphi-Quellcode:

procedure TForm1.Buttin1Click;
var
  i: integer;
begin
inc(i,1); //er zählt i wenn der Button angeklickt wird immer eins hoch
if i = 1 then
begin
;
end
else
button1.enabled:= false;

Zitat von STS301:

???bei mir funktioniert es??? wie würdest du es machen

Das kann garnicht funktionieren
zunächst einmal ist i undefiniert, also nicht 0. Dann zählst du auf irgendeinen Wert von i 1 drauf. Der Code wird also nicht ausgeführt, der Button wird trotzdem disabled.