RadioGroup如何被选中的问题

chenzhechenge 2004-08-18 01:12:24
假设在RadioGroup中所有的RadioButton的初始状态Checked设定为false,不用键盘、不点鼠标,只让鼠标放在RadioButton的上面,那么那个RadioButton就自动被选中,用程序如何实现?
...全文
383 10 打赏 收藏 举报
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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就可以了
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi

5122

社区成员

Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
帖子事件
创建了帖子
2004-08-18 01:12
社区公告
暂无公告