RadioGroup如何被选中的问题

[chenzhechenge]

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

[muziling]

写到onmousemove就可以了

[rcaicc]

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

[飞天揽月]

onmousemove

[飞天揽月]

窗口上的可以

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

radiogruop中的不可以

[panjinfu80]

up

[梅青松]

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.

[qizhanfeng]

onmousemove
不行吗

[muziling]

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

[cdsgajxlp]

radiogruop中的好象不行
帮顶

[muziling]

可以,我试了