ich habe eine Toolbar mit einem TToolButton. Die Eigenschaft AllowAllUp des Buttons ist True.
Beim anklicken des Buttons will ich die Eigenschaft Down umschalten.
Code: Alles auswählen
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
TToolButton(Sender).Down := not TToolButton(Sender).Down;
end;
Beim ersten Zugriff klappt das auch. Bei jedem weiteren ist Down beim Aufruf der Methode immer False. Ich habe einen Datenhaltepunkt auf TToolButton($Adresse).fDown gesetzt. Dieser wird nicht erreicht.
Was läuft denn da falsch?