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

效果图

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

说明

判断开关

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

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