"Wenn Button gedrückt -> Anweisung freischalten"

[*Benny]

Hallo,

der Titel hört sich in erster Hinsicht etwas merkwürdig an, obwohl ich eigentlich nur ein Button erstellen möchte, der ein bestimmen Wert (welcher in einem Label aufgeführt werden soll) "aktiviert" mit dem im eigentlichen Programm gerechnet wird.

Ich habe es so versucht, doch leider wird der Wert sofort aktiviert wenn man ins Label 'Zahlen' eingibt.

if(RunderForm->RR_Aktivieren) //Das ist der Button
{
  //Ab hier so die Anweisung starten wenn Button gedrückt ist   
 if((ScrollBar1->Position > 500) && (ScrollBar1->Position <= 1000)) 
    {
      double plus;
      plus = StrToFloatDef(Label_EE6->Caption, 0) + StrToFloatDef(RunderForm->RR_Edit1->Text, 0);

      Label_EE6->Caption = plus;
    }

    else if(ScrollBar1->Position < 500)
    {
      double minus;
      minus = StrToFloatDef(Label_EE6->Caption, 0) - StrToFloatDef(RunderForm->RR_Edit1->Text, 0);

      Label_EE6->Caption = minus;
    }
}

Ich hoffe ihr könnt mir den Fehler zeigen..

MFG
*Benny

/Edit : Syntaxhighlight korrigiert

[akari]

Hallo

Siehe den Event TButton::OnClick, erstellbar über den Objektinspektor.

bis bald
akari

[*Benny]

Hallo,

danke bin neu im BCB!

mfg