BuscaDelphi Soft.

[[felipe88]]

A bueno... es valida la idea... pero creo que la tendre en cuenta para la proxima , por ahora pienso dejarlo asi... ademas dado el procedimiento que uso:

Código Delphi [-]
procedure TFrmBusca.Cargar;
var ini:TIniFile;
    pag,url:TStringList;
    Page:TPageControl;
    wb: TWebBrowser;
    i:Integer;
    s:String;
begin
  ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'motores.ini');
  pag := TStringList.Create;
  url := TStringList.Create;
  if FileExists(ExtractFilePath(Application.ExeName) + 'motores.ini') then
    begin
      ini.ReadSections(pag);
      Page := TPageControl.Create(Self);
      Page.Parent := Self;
      Page.Align := alClient;
      progreso.Max := pag.Count;
        for i:=0 to pag.Count -1 do
          begin
            ini.ReadSectionValues(pag[i],url);
            with TTabSheet.Create(Page) do
              begin
                Caption := pag.Strings[i];
                Align := alClient;
                PageControl := Page;
                wb := TWebBrowser.Create(Page);
                TWinControl(wb).Parent := Page.Pages[i];
                wb.Align := alClient;
                s := Copy(url.Text,5,Length(url.Text));
                wb.Navigate(s + bus.Text);
              end;
            progreso.Position := i+1;
          end;
    end;
end;

¿Que deberia usar?, ¿una condicion?