Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   recorrer listbox para modificar tamaño del form (https://www.clubdelphi.com/foros/showthread.php?t=34604)

DM2005 15-08-2006 08:10:27

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...

dec 15-08-2006 14:11:10

Hola,

Cita:

Empezado por DM2005
(...) 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.

Tal vez baste con utilizar la propiedad "WindowState" del formulario en cuestión. Algo así:

Código Delphi [-]
  WindowState := wsMaximized;


La franja horaria es GMT +2. Ahora son las 12:06:20.

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