Ver Mensaje Individual
  #4  
Antiguo 31-01-2006
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Reputación: 27
delphi.com.ar Va por buen camino
Cita:
Empezado por Nbull
Gracias federico, el problema que tengo es que no se me queda pulsado, ningun boton aunque esten el mismo GroupIndex, no se porque por que si que le pongo true en la propiedad down.
Es que no tienes que cambiar el valor de Down, cambiará automáticamente:
Código Delphi [-]
program SpeedButtonGroupIndex;

uses
  Forms, Buttons;

var
  i: Integer;
  F: TForm;
begin
  F := TForm.Create(nil);
  try
    for i := 0 to 10 do
      with TSpeedButton.Create(F) do
      begin
        Parent := F;
        Left := i * Width;
        GroupIndex := 1;
      end;

    F.ShowModal;
  finally
    F.Free;
  end;
end.


¿Probaste lo del TPageControl?... ¡Es exactamente lo que quieres hacer!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita