Desmarcar todos os itens de uma lista
Desmarcar todos os itens de uma lista
Uma maneira rápida de retirar qualquer seleção de uma listbox é:
list1.selected (-1) = False
Infelizmente,isto não funciona em VB4.
Verificando a conexão de Internet via Delphi Para verificar a conexão de Internet via Delphi, siga os seguintes procedimentos: Inclua um componente TCP no Form, e digite o código: if (TCP1.LocalIP = ‘0.0.0.0’ or TCP1.LocalIP = ‘127.0.0.1’) then ShowMessage(‘Computador não está conectado na Internet’) else ShowMessage(‘Computado conectado na Internet’)
Use a propriedade TaskVisible do objeto App. No evento Load do form principal ou na procedure Main do módulo principal, coloque o seguinte código: App.TaskVisible = False Em adição para evitar que o título de uma janela não apareça na barra de tarefas, configure a propriedade ShowInTaskBar do form para False.
Como indentar código fonte automaticamente com o Sublime Text Nesta publicação, veremos como criar uma tecla de atalho para indentar seu código fonte no editor Sublime Text. O Sublime Text é utilizado por muitos desenvolvedores de software para editar código-fonte. A Indentação é um recurso utilizado com o objetivo de ressaltar a estrutura do algoritmo, aumentando assim a…
Função que compara dois valores e retorna o maior em Delphi function Max(A, B: Integer): Integer; begin if A > B then Result := A else Result := B; end;
Nesta publicação e aula do canal webmundi.com , aprenderemos mais sobre o Java JDK Java Development KIT ou Kit de desenvolvimento Java.Vamos falar sobre suas versões e distribuições, e entender um pouco mais sobre suporte e características das versões de JDK. Saber o que é e como funciona a linguagem java vai fazer grande diferença…
Ajustar o tamanho dos objetos quando muda o tamanho do formulário Para ajustar o tamanho de objetos quando se redimensiona um form em tempo de execução, utilize o evento Form_Resize (redimensionar tamanho), por exemplo: Private Sub Form_Resize() Text1.Width = Form1.Width / 2 Text1.Left = Form1.Width / 4 Text1.Top = Form1.Height / 3 End Sub