Criando Objetos
Publicado por Daniel 21/02/2005
[ Hits: 4.476 ]
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.
programa que te ajuda em matematica
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
PIP3 - erro ao instalar módulo do mariadb para o Python (8)
systemd-resol... precisa ser reiniciado periodicamente (6)
Meu Amigo não consegue entrar em meu mundo, via tailscale, hamachi e z... (2)