Active News - Nº 34  - www.activedelphi.com.br 

          Notícia da Edição: GSM, Bluetooth e GPS em um único chip

 Fonte INFO

     Um exemplo disso é quando você está mostrando um diálogo do progresso de uma operação. 
     O problema é que se você usa ShowModal todo o código da operação deve estar contido no form do diálogo de progresso. 
     Para evitar isso use DisableTaskWindows and EnableTaskWindows. 
     Desta form seu diálogo vai agir como um formulário Modal e ao mesmo tempo permite executar o form da operação que está em progresso no diálogo. 

procedure TForm1.ShowProgressDlg; 
var 
  WindowList: Pointer; 
begin 
  // Desabilita todos os formulários com exceção de FrmProgress 
  WindowList := DisableTaskWindows(FrmProgress.Handle); 
  try 
    FrmProgress.Show; 
    // Início do loop que executa a operação 
    FrmProgress.ProgressBar1.Position := FrmProgress.ProgressBar1.Position + 1; 
    // Fim do loop 
  finally 
    // Reabilita todos os formulários 
    EnableTaskWindows(WindowList); 
    FrmProgress.Close; 
  end; // try 
end; // ShowProgressDlg 

-

  uses TypInfo;

  procedure TForm1.Button1Click (Sender : TObject);

  var

    i : Integer;

  begin

    for i := 0 to Screen.FormCount - 1 do

      Memo1.lines.add (GetTypeData (Screen.Forms[i].ClassInfo)^.UnitName + '{'+Screen.Forms[i].Name+'} ' );

  end;

  Obs: Adicione um TMemo (Memo1) e um botão (Button1), e no evento OnClick do botão adicione o código acima.

          Suporte em Delphi. cadastre-se já 

          Este serviço tem por finalidade oferecer aos associados um suporte técnico na linguagem de programação Delphi, nas versões 1, 2, 3, 4 e 5 Standard, Professional e Client/Server.   

          Atualmente, contamos com uma equipe de profissionais qualificados e prontos pra lhe atender e ajudá-lo da melhor forma possível.  

          Nosso atendimento é feito através de e-mail e formulário web, de segunda à sexta das 08:00h às 18:00h.

  Reset(ArquivoTXT);
  i := 0;
  while not EOF(ArquivoTXT) do
  begin
    Inc(i);
    Readln(ArquivoTXT);
  end;
  ShowMessage(IntToStr(i) + ' linhas');

          Várias Apostilas:  www.activedelphi.com.br/apostilas.htm

  var
    I : Integer;
    Caminho, Drive : String;
    Tamanho : Cardinal;
  begin
    SetLength(Caminho,255);
    Tamanho:=255;
    For I:=0 to 25 do
    begin
      Drive := Chr(Ord('A')+I)+':';
      if WNetGetConnection(PChar(Drive),PChar(Caminho) ,Tamanho) = NO_ERROR then
        ListBox1.Items.Add(Drive + ' - '+Caminho);
    end;
  end; 

            Visite nosso Fórum de discussões sobre Delphi, é gratuito e não precisa se cadastrar. Clique Aqui

  procedure TForm1.QuickReport1Filter(var PrintRecord:Boolean);
  begin
    PrintRecord:= ( Table1.fieldbyname ('idade').value > 21 );
  end;

  Obs : Substitua o nome da tabela e do campo pelos seus correspondentes.

Não deixe de conferir as dicas disponíveis em nosso site. Clique Aqui  

  Essa função insere um valor default caso haja um erro na conversão, que no exemplo abaixo é o valor "0"

  procedure TForm1.Button1Click(Sender: TObject);
  var
    S: string;
    N: Integer;
  begin
    S := Edit1.Text;
    N := StrToIntDef(S , 0 );
    Edit2.Text := IntToStr (N);
  end;

  Obs: Adicione 2 TEdits e um TButton, e no evento Onclick do TButton adicione o código acima. 

          Suporte em Delphi. cadastre-se já 

          Este serviço tem por finalidade oferecer aos associados um suporte técnico na linguagem de programação Delphi, nas versões 1, 2, 3, 4 e 5 Standard, Professional e Client/Server.   

          Atualmente, contamos com uma equipe de profissionais qualificados e prontos pra lhe atender e ajudá-lo da melhor forma possível.  

          Nosso atendimento é feito através de e-mail e formulário web, de segunda à sexta das 08:00h às 18:00h.

     Olá!
     Gostaria apenas de parabenizá-los pelo excelente Site de Delphi! 
     Já coloquei minha dúvida no fórum e espero conseguir uma ajuda :-)

     Um abraço,
     Guilherme Piccoli - Porto Alegre - RS

     ______________________

     É com muito carinho que o ActiveDelphi, agradece a todos que nos enviaram suas opniões.

     Esperamos sempre manter contato, para melhorarmos cada vez mais nossos serviços.

     Saudações, 

     Equipe ActiveDelphi 

          Pensamento:

          “ A grande diferença está nos pequenos detalhes. Um vinho pode custar dez ou vinte vezes mais do que outro, por ser um pouco melhor. Mas ele nunca será dez ou vinte vezes melhor. Isso serve para tudo na vida, inclusive para nós, pessoas. Seja melhor. Dê toda atenção aos pequenos detalhes que a grande maioria não consegue perceber. "

(Nestor H. de Paula)

-

          Até a próxima semana !

          EQUIPE  ACTIVEDELPHI

          www.activedelphi.com.br

          info@activedelphi.com.br