Hola a todos, tengo la siguiente procedure:
Código Delphi
[-]{$WRITEABLECONST ON}
procedure TForm1.SpeedButton2Click(Sender: TObject);
const
i: integer = 0;
begin
with ListBox4 do
begin
if i < Count then
if Items[i+1] = 'S' then
begin
Self.Height := 739;
Self.Width := 1024;
Self.Left := 0;
Self.Top := 0;
end;
if Items[i+1] = 'N' then
begin
Self.Height := 300;
Self.Width := 550;
Self.Left := 400;
Self.Top := 400;
end;
if i < Count-1 then
inc(i)
else
i:= 0;
end;
end;
end;
{$WRITEABLECONST OFF}
que recorre un listbox cada vez que hago clique en el speedbutton, la duda es que cuando cierro el form y ejecuto nuevamente, el no comienze a recorrer el listbox desde el comienzo y si desde el item que yo selecciono.
garcias por la ayuda.
saludos