RadioGroup如何被选中的问题

chenzhechenge 2004-08-18 01:12:24
假设在RadioGroup中所有的RadioButton的初始状态Checked设定为false,不用键盘、不点鼠标,只让鼠标放在RadioButton的上面,那么那个RadioButton就自动被选中,用程序如何实现?
...全文
397 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
up
飞天揽月 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就可以了

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧