Bowling(anfänger)

[angos]

Hi,

bist du sicher das du nur das willst?
Momentan sieht das so aus, als ob der Knopp bei jedem klick auch eine andere Aktion durchführen soll, also...

.. du kannst für solche dinge die Eigenschaft TAG des Buttons nutzen. Belege das einfach im Objektinspektor mit 0 vor


und dann machste so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  case Button1.Tag of
    1:
      begin
        Button1.Caption := 'Aktion3';
        Button1.Tag := 2;
        // hier weitere Dinge die beim ZWEITEN Klick passieren sollen;
      end;
    2:
      begin
        Button1.Caption := 'Aktion1';
        Button1.Tag := 0;  // Also beim nächsten klicken wieder Aktion 1
        // hier weitere Dinge die beim DRITTEM Klick passieren sollen;
      end;
    else
    begin
      Button1.Caption := 'Aktion2';
      Button1.Tag := 1;
      // hier weitere Dinge die beim ERSTEN Klick passieren sollen;
    end;
  end;
end;