Criando Objetos
Publicado por Daniel 21/02/2005
[ Hits: 4.457 ]
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.
Nenhum comentário foi encontrado.
Atualizações de Apps, Desktop e Kernel agitam o ecossistema Linux nesta terça-feira
Miyoo Mini Plus + Onion OS (Linux)
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Como colocar atalho para uma pasta na área de trabalho do Ubuntu 24.04... (1)
Como listar os arquivos em "bloquin... (0)
Como vencer a procrastinação? (8)
Adicional de convivdado em linux somente linha de comando (3)