ownerdraw设置按钮选中状态

在 `OwnerDraw` 控件中设置按钮的选中状态可以通过在 `OnDrawItem` 事件处理程序中根据按钮的状态绘制不同的外观来实现。具体实现步骤如下：

1. 在按钮的 `OnClick` 事件处理程序中设置按钮的选中状态，例如：

   procedure TForm1.Button1Click(Sender: TObject);
   begin
     TButton(Sender).Tag := 1 - TButton(Sender).Tag; // 切换按钮的选中状态
     TButton(Sender).Invalidate; // 使按钮失效，触发重绘
   end;

在这个例子中，我们使用按钮的 `Tag` 属性来保存按钮的选中状态，通过在点击按钮时切换 `Tag` 属性的值来切换按钮的选中状态。最后使用 `Invalidate` 方法使按钮失效，触发重绘。

2. 在 `OnDrawItem` 事件处理程序中根据按钮的状态绘制不同的外观，例如：

   procedure TForm1.Button1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
   var
     Text: string;
     DrawState: Integer;
   begin
     if TButton(Control).Tag = 1 then
     begin
       // 按钮被选中
       DrawState := DFCS_BUTTONPUSH or DFCS_CHECKED;
       Text := '选中';
     end
     else
     begin
       // 按钮未选中
       DrawState := DFCS_BUTTONPUSH;
       Text := '未选中';
     end;
     DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DrawState); // 绘制按钮外框
     DrawText(Canvas.Handle, PChar(Text), Length(Text), Rect, DT_CENTER or DT_VCENTER or DT_SINGLELINE); // 绘制按钮文本
   end;

在这个例子中，我们根据按钮的 `Tag` 属性的值来判断按钮是否被选中，然后使用 `DrawFrameControl` 函数绘制按钮的外框，使用 `DrawText` 函数绘制按钮的文本。当按钮被选中时，我们通过设置 `DFCS_CHECKED` 标志来绘制选中状态的外观。

通过以上步骤，我们就可以在 `OwnerDraw` 控件中设置按钮的选中状态了。