Ver Mensaje Individual
  #2  
Antiguo 18-11-2005
Avatar de Héctor Randolph
[Héctor Randolph] Héctor Randolph is offline
Miembro Premium
 
Registrado: dic 2004
Posts: 882
Reputación: 20
Héctor Randolph Va por buen camino
No sé si he entendido bien, pero aqui te pongo un ejemplo de la ayuda de Delphi:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
    // Add View styles and constants to the Combo Box
    ComboBox1.Items.AddObject('vsIcon', TObject(vsIcon));
    ComboBox1.Items.AddObject('vsList', TObject(vsList));
    ComboBox1.Items.AddObject('vsReport', TObject(vsReport));
    ComboBox1.Items.AddObject('vsSmallIcon', TObject(vsSmallIcon));
    // Display first item in the Combo Box
    ComboBox1.ItemIndex := 0;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  with ComboBox1 do
    ListView1.ViewStyle := TViewStyle(Items.Objects[ItemIndex]);
end;

La propiedad ViewStyle es de tipo TViewStyle que es un tipo enumerado.

Código Delphi [-]
TViewStyle = (vsIcon, vsSmallIcon, vsList, vsReport);

Tal vez eso resuelva el problema

Un saludo.
Responder Con Cita