Criando Objetos
Publicado por Daniel 21/02/2005
[ Hits: 4.428 ]
Download criando_objetos_parte1.zip
Este exemplo mosta como criar um form em tempo de execussão com o Kylix ou o FPC, esta e a primeira parte do projeto, vou criar um mini-programa todo em tempo de execussão para colocar aqui como exemplo para vocês parte a parte...
///////////////////////////////////////////////////////////// // CRIANDO UM PROGRAMA PASCAL USANDO CONSEITOS CLX (LINUX) // // PROGRAMADOR: DANIEL BREDA // // CONTATO: DANIEL.BREDA@GMAIL.COM // // // // ESTE PROGRAMA E UMA DEMONSTRAÇÃO DE COMO SE CRIAR UM // // OBJETO EM TEMPO DE EXECUSSÃO COM O KYLIX OU PASCAL... // // CASO VOCÊ DESEJA CRIA-LO VIA PASCAL VOCÊ DEVE TER A // // UNIT "QFORMS" PARA DAR O FORMATO A TELA. // ///////////////////////////////////////////////////////////// program criando_objetos; {$APPTYPE CONSOLE} uses SysUtils, QForms; // A unit QForms é a que constroi a tela. var Form: TForm; Sair: Char; begin Application.Initialize; WriteLn('Cosntruindo o Form...'); Form := TForm.Create(Application); // Aqui o form e criado. WriteLn('Exibindo o Form...'); Form.ShowModal; // Aqui ele e exibido. Form.Free; // Aqui ele e liberado da memória. Form := nil; // Aqui ele e igualado a nil. if (Form = nil) then WriteLn('Form destruido.') else WriteLn('Form ainda esta carregado.'); WriteLn('Pressione uma tecla para sair.'); read(Sair); // Essa linha e adicional, somente para dar tempo de se ler o que esta escrito na tela. Application.Terminate; end.
Crivo de Eratóstenes Simples em Pascal
Operações simples e avançadas com matrizes
Nenhum coment�rio foi encontrado.
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Converter os repositórios Debian para o novo formato com as chaves
Instalando Spotify no Debian 13
Realizar overclock no Miyoo Mini (plus ou normal)
E aí? O Warsaw já está funcionando no Debian 13? (6)
Problema com o Centro de Aplicativos Ubuntu 25.04 (1)
Maquina não se comunica [RESOLVIDO] (5)
Direcionar uma URL para Outra No Mikrotik (2)
linux mint reconhece microfone de lapela como fone de ouvido sem micro... (5)