Falls es einen Interessiert ich habe es jetz schon hinbekommen.
Man lässt den Speedbutton so wie er ist, bennent ihn eventuell lädiglich nur um. Und dann macht man ein labe das den Speedbutton kontrolliert und somit auch die selben aktionen wie der speedbutton durchführt.
Hier meine geniale idee:
Delphi-Quellcode:
procedure TFormUserTune.sbColorImagesClick(Sender: TObject);
begin
if MetaIni.ReadBool('Service', 'ColorImages', True) then sbColorImages2.Down:=False
else sbColorImages2.Down:=True;
sbColorImages2Click(sender);
begin
if MetaIni.ReadBool('Service', 'ColorImages', True) then sbColorImages.Font.Color:=clblack
else sbColorImages.Font.Color:=clsilver
end;
end;
Glaubt mir das klappt!!!!!!!