Criando Objetos
Publicado por Daniel 21/02/2005
[ Hits: 4.382 ]
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.
Aprenda a Gerenciar Permissões de Arquivos no Linux
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Quebra de linha na data e hora no Linux Mint
Organizando seus PDF com o Zotero
tentando instalar em um notebook antigo o Linux LegacyOS_2023... [RESO... (9)
Problema com Conexão Outlook via Firewall (OpenSUSE) com Internet Fibr... (5)