Huhu Gemeinde,
ich bin schon seit einer Weile ein stiller Leser und habe bisher auch immer recht schnell Lösungsansätze gefunden. Danke schon mal dafür!
Jetzt habe ich allerdings auch mal ein kleines Problem, welches ich zur Sprache bringen möchte. Also hab ich mich fix registriert und da bin ich.
Ich möchte mit Hilfe eines BitButtons die "Down" Eigenschaft eines SpeedButtons manipulieren, also true bzw. false setzen. Leider gelingt es mir nicht, diesen Status zu verändern. Nicht einmal im Eigenschaften-Fenster lässt sich der Haken setzen. Die Option "AllowAllUp" bringt leider auch nicht das gewünschte Ergebnis.
Das Setzen des Status im Quellcode funktioniert ebenso wenig, hier mal der Code für den BitButton:
Delphi-Quellcode:
procedure TMainForm.Dice1Click(Sender: TObject);
begin
if Take1.Down = true then
begin
Take1.Down := false;
exit;
end;
if (Take1.Down = false) and (Dice1.Caption = '0') then
application.messagebox ('Bitte erst würfeln!', 'Fehler', mb_OK + mb_IconExclamation)
else
Take1.Down := true;
if RollButton.Enabled then
RollButton.SetFocus;
end;
Der Code ist Bestandteil eines Delphi Kurses. Ziel ist es einen Kniffel-Klon zu programmieren.
*Edit: "Dice1" ist ein BitButton, welcher "Take1" (SpeedButton) manipulieren soll. "RollButton" ist ebenfalls ein BitButton, welche dann zum "würfeln" gedacht ist.
Hoffe ich konnte mich soweit verständlich ausdrücken.
Grüße!