delphi 漂亮的开关按钮 与 web ui 一样漂亮的开关按钮 djToggleSwitchButton

效果图

在 delphi 界 找个漂亮的开关按钮，不容易，ddj 为您提供了漂亮的开关按钮，以下是 效果图

说明

判断开关

双击这个 开关按钮，在 onClick事件里 写逻辑代码就可，如：

procedure TFormMain.djToggleSwitch1Click(Sender: TObject);
beginif djToggleSwitch1.StateOn thenbeginShowMessage('被打开了');//您的业务逻辑代码end else beginShowMessage('被关闭了');//您的业务逻辑代码end;
end;