تغییر رنگ فونت آیتم انتخاب شده در RadioGroup

[kheyri]

سلام دوستان
فرض کنید یک RadioGroup داریم با 10 آیتم. حالا میخواهیم وقتی کاربر روی هر یک از آیتمها کلیک کرد، رنگ فونت آن آیتم مثلاً قرمز بشود و وقتی کاربر روی آیتم دیگر کلیک کرد ، آیتم قبلی همچنان قرمز بماند و آیتم جدید هم قرمز بشود و الی آخر.
ممنون میشم اگه راهنمایی بفرمائید.

[DAMAVAND]

سلام
نباید قاعدتا مشکل خاصی باشه !





implementation

{$R *.dfm}
procedure SetColor(R:TRadioButton);
begin
R.Font.Color:=clRed;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
SetColor(RadioButton1);
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
SetColor(RadioButton2);
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
SetColor(RadioButton3);
end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
SetColor(RadioButton4);
end;

end.

[SYNDROME]

با سلام
دوست عزیز منظور دوستمان RadioGroup است.
موفق باشید

[DAMAVAND]

با سلام
دوست عزیز منظور دوستمان RadioGroup است.
موفق باشید
سلام
منم منظورم این بود که اینها توی یه RadioGroup باشن !
با تغییر کد میشه بجای RadioButton هر کنترول دیگه هم باشه!
تا منظورشون از RadioGroup چی باشه???!!!!

[kheyri]

خیلی ممنونم از DAMAVAND بخاطر جوابشون ولی مشکل من در RADIOGROUP هست و میدونید که تشخیص آیتمهای کلیک شده با مشخص شدن ItemIndex مربوط به اون آیتم انجام میشه.
من میخوام برنامه تشخیص بده که کدوم آیتم کلیک شده و رنگ فونت اون رو عوض کنه.