Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Programming
»
LCL
»
To get the selected item of TRadioGroup
Free Pascal
Website
Downloads
Wiki
Documentation
Bugtracker
Mailing List
Lazarus
Website
Downloads (Laz+FPC)
Packages (OPM)
FAQ
Wiki
Documentation (RTL/FCL/LCL)
Bugtracker
CCR Bugs
IRC channel
GIT
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
How to use the forum
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
Recent
Error: This kind of prope...
by
maicounir
[
Today
at 07:26:49 pm]
TChart: +32% Processor lo...
by
ccrause
[
Today
at 07:25:23 pm]
CompareText improvement
by
Stefan Glienke
[
Today
at 05:07:58 pm]
An ASCII logo for Pascal ...
by
Fred vS
[
Today
at 03:34:59 pm]
Setup landmap - databse
by
WimVan
[
Today
at 03:31:15 pm]
Improvement of packages/f...
by
lagprogramming
[
Today
at 03:12:57 pm]
[SOLVED] SysTraIcon event...
by
SWM1
[
Today
at 02:40:47 pm]
pdfium.dll loadfromfile f...
by
domasz
[
Today
at 02:14:41 pm]
[SOLVED] Timer
by
Pe3s
[
Today
at 12:36:33 pm]
QT5 PageControl Tab sizes
by
zeljko
[
Today
at 12:07:55 pm]
« previous
next »
Print
Pages: [
1
]
Author
Topic: To get the selected item of TRadioGroup (Read 3417 times)
asdf
Sr. Member
Posts: 310
To get the selected item of TRadioGroup
«
on:
December 02, 2010, 05:37:13 pm »
sp1, sp2, sp3 : string;
RadioGroup1.Items.Add(sp1);
RadioGroup1.Items.Add(sp2);
RadioGroup1.Items.Add(sp3);
How can we get
the caption
of the selected item?
Logged
Lazarus 1.2.4 / Win 32 / THAILAND
theo
Global Moderator
Hero Member
Posts: 1918
Re: To get the selected item of TRadioGroup
«
Reply #1 on:
December 02, 2010, 05:49:36 pm »
Code: Pascal
[Select]
[+]
[-]
var
idx
:
integer
;
begin
idx
:
=
RadioGroup1
.
ItemIndex
;
if
idx>
-
1
then
Caption
:
=
RadioGroup1
.
Items
[
idx
]
;
end
;
Logged
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Programming
»
LCL
»
To get the selected item of TRadioGroup
TinyPortal
© 2005-2018