Criando Objetos
Publicado por Daniel 21/02/2005
[ Hits: 4.379 ]
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
Método de eliminação de Gauss com pivotamento parcial
Nenhum comentário foi encontrado.
Como aprovar Pull Requests em seu repositório Github via linha de comando
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Resolvendo o erro "libQt6Widgets.so.6: cannot open shared object file" no Linux
Como instalar protetores de tela (Debian e derivados)
Conheça a 4Devs, caixa de ferramentas online para desenvolvedores
Como converter um vídeo MP4 para um GIF para publicar no README.md do seu repositório Github
Agora temos uma assistente virtual no fórum!!! (250)