Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cambiar cursor en RadioGroup (https://www.clubdelphi.com/foros/showthread.php?t=85166)

MAXIUM 07-02-2014 20:58:30

Cambiar cursor en RadioGroup
 
Saludos,

Suelo dejar el cursor HandPoint en ciertos componentes de forma predeterminada, pero en RadioGroup no me deja o a lo menos no se como hacerlo para cada uno de sus Items. Cuando le doy esa propiedad, solo en el Caption de este aparece, pero no en sus Items que es lo que necesito :rolleyes:

ecfisa 08-02-2014 15:05:18

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 :)


La franja horaria es GMT +2. Ahora son las 07:37:57.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi