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]

Delphi-Quellcode:

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 :zwinker:

[mkinzler]

man kann doch direkt den Status Abfragen:

Delphi-Quellcode:

if Button.Enabled then ...

[STS301]

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

[Fussball-Robby]

Zitat:

Zitat von mkinzler

man kann doch direkt den Status Abfragen:

Delphi-Quellcode:

if Button.Enabled then ...

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

[mkinzler]

Zitat:

Zitat von STS301

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

Siehe #6 :zwinker:

[Fussball-Robby]

Zitat:

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:

Zitat von STS301

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

Das kann garnicht funktionieren :wink:
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.

[STS301]

@mkinzler

jaja diese roten Kästchen :roll: (ist aber eher eine umschreibung)

@Fussball...

:wall:

[Bx3]

DANKE,
das forum is so geil, der hammer wie schnell hier top antworten kommen
nochma an alle ein riesen DANKE und ein riesen LOB an das forum

:bouncing4: :cheers: :firejump:

lg
Bx3