Ver Mensaje Individual
  #1  
Antiguo 15-08-2006
DM2005 DM2005 is offline
Miembro
 
Registrado: abr 2005
Posts: 41
Reputación: 0
DM2005 Va por buen camino
recorrer listbox para modificar tamaño del form

Hola a todos, estoy necesitando una pequeña ayuda...
En mi aplicacion, tengo 3 ListBox, alli llamo 3 archivos .txt diferentes,
el 1º txt me llama un archivo que contiene 'Capitulos', el 2º txt contiene 'Archivos.html' y el 3º txt contiene informacion indicando el Form debe ser maximizado o no, mi codigo es asi:

Código Delphi [-]
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  if ListBox1.ItemIndex = 0 then
   begin
     ListBox2.Items.LoadFromFile('C:\Archivos de programas\Cyber\Access\IPCapitulo.txt');
     ListBox3.Items.LoadFromFile('C:\Archivos de programas\Cyber\Access\IPArchivos.txt');
     ListBox4.Items.LoadFromFile('C:\Archivos de programas\Cyber\Access\IPMaximizada.txt');
end;

y tengo un SpeedButton donde el recorre los 3 archivos txt y muestra las html en un WebBrowser y el codigo es asi:

Código Delphi [-]
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
    with ListBox3.Items do
      begin
         if ListBox3.ItemIndex < Count-1
then ListBox2.ItemIndex := ListBox2.ItemIndex + 1 
         else MessageDlg('Final del curso !',mtInformation,[mbOk],0);
         Panel2.Caption := ListBox2.Items.Strings[ListBox2.ItemIndex];
        WebBrowser1.Navigate(strings[ListBox2.ItemIndex]);
end;

hasta alli todo bien... utilize los 2 primeros txt (IPCapitulo.txt, IPArchivos.txt) , ahora mi duda...
al recorrer el 3 archivo txt (IPMaximizada.txt), cual seria el procedimiento correcto para que cuando el encuentre la opcion de maximizar representada por la 'S' en el (IPMaximizada.txt), el maximize el Form.

Gracias por la ayuda.
Un abrazo y saludos para todos...
Responder Con Cita