Ver Mensaje Individual
  #2  
Antiguo 08-02-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola MAXIUM.

No sé si interpreto bién la situación pero podes asignar el/los cursores accediendo a la propiedad vectorial Buttons, un ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
const
  COLORS: array[0..3] of TColor = (clRed, clLime, clYellow, clBlue);
  CURSORS: array[0..3] of TCursor = (crHandPoint, crCross, crSQLWait, crNo);
var
  i: Integer;
begin
  with RadioGroup1 do
  begin
    Items.Clear;
    Columns:= 3; 
    Cursor:= crDefault;
    for i:= 0 to 3 do
    begin
      Items.Add('ITEM '+IntToStr(i+1));
      Buttons[i].Cursor:= CURSORS[i];
      Buttons[i].Color := COLORS[i];
    end;
  end;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita