RadioGroup如何被选中的问题

2004-08-18 01:12:24 469 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

chenzhechenge 墨衍会员 · AI 创作全网分发关注 + 加入社区

【全解析 | PTA】浙大版《Python 程序设计》题目集-第一章 Python浙大版PTA题解阅读详情

假设在RadioGroup中所有的RadioButton的初始状态Checked设定为false,不用键盘、不点鼠标,只让鼠标放在RadioButton的上面,那么那个RadioButton就自动被选中,用程序如何实现?

...全文

高德地图可视化入门：零基础用Python+高德API打造你的第一个热力图本文详细介绍了如何使用Python和高德地图API从零构建商业级热力图。通过环境配置、地理编码、数据清洗到最终可视化展示的全流程指南，帮助开发者快速掌握地图可视化技术，特别适合展示商圈人流、疫情热点等地理分布数据。阅读详情

chenzhechenge

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

muziling 2004-08-18

打赏
举报

可以,我试了

cdsgajxlp 2004-08-18

打赏
举报

radiogruop中的好象不行
帮顶

muziling 2004-08-18

打赏
举报

晕,我第一个答的,答案和我一样就没必要贴了,楼主,分是给我一人的.
我辛辛苦苦在那些事件里试的~~~~

qizhanfeng 2004-08-18

打赏
举报

onmousemove
不行吗

梅青松 2004-08-18

打赏
举报

radiogruop中的也可以
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
procedure RadioButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure RadioButton2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure RadioButton3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RadioButton1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
RadioButton1.Checked := true;
end;

procedure TForm1.RadioButton2MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
RadioButton2.Checked := true;
end;

procedure TForm1.RadioButton3MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
RadioButton3.Checked := true;
end;

end.

panjinfu80 2004-08-18

打赏
举报

飞天揽月 2004-08-18

打赏
举报

窗口上的可以

procedure TForm1.RadioButton2MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
radiobutton2.Checked:=true;
end;

radiogruop中的不可以

飞天揽月 2004-08-18

打赏
举报

onmousemove

rcaicc 2004-08-18

打赏
举报

mouseenter这个我不知道怎么用，在其他帖子见到的。不知道这里能不能用上

muziling 2004-08-18

打赏
举报

写到onmousemove就可以了

RadioGroup如何被选中的问题

相关推荐