|
|
 |
 |
|
Paypal | |
|
FTP | |
|
CCD | |
|
Buscar | |
|
Trucos | |
|
Trabajo | |
|
Foros | |
|
#7
15-11-2003
|
||||
|
||||
|
Código final, así quedaría más compacto:
Código:
procedure TForm1.Button2Click(Sender: TObject);
var
nCont:Integer;
begin
for nCont:=0 to Componentcount -1 do
begin
If Components[nCont] is TradioButton then
begin
(Components[nCont]as TRadioButton).Checked:=False;
end;
end;
end;
__________________
Guía de Estilo de los Foros Cita:
|
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
 |
|
Modo Hilado