Criando Objetos 2
Publicado por Daniel 21/02/2005
[ Hits: 4.368 ]
Download criando_objetos_parte2.zip
Segunda parte do script, nesta parte alem de criar o form também são criados os botões...
///////////////////////////////////////////////////////////// // 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, QButtons; var Form: TForm; Btn1, Btn2, Btn3, Btn4: TBitBtn; begin try Application.Initialize; WriteLn('Cosntruindo os objetos...'); Form := TForm.Create(Application); Btn1 := TBitBtn.Create(Application); Btn2 := TBitBtn.Create(Application); Btn3 := TBitBtn.Create(Application); Btn4 := TBitBtn.Create(Application); WriteLn('Alinhando os objetos...'); Form.Caption := 'Criando Objetos - Por Daniel Breda'; Form.Width := 500; Form.Height := 130; Form.Top := 200; Form.Left := 200; Btn1.Parent := Form; Btn1.Caption := '&Cadastrar'; Btn1.Left := 8; Btn1.Top := 8; Btn1.Width := 80; Btn1.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName) + '/img/btn1.png'); Btn2.Parent := Form; Btn2.Caption := '&Deletar'; Btn2.Left := 8; Btn2.Top := 38; Btn2.Width := 80; Btn2.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName) + '/img/btn2.png'); Btn3.Parent := Form; Btn3.Caption := '&Confirmar'; Btn3.Left := 8; Btn3.Top := 68; Btn3.Width := 80; Btn3.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName) + '/img/btn3.png'); Btn4.Parent := Form; Btn4.Caption := '&Cancelar'; Btn4.Left := 8; Btn4.Top := 98; Btn4.Width := 80; Btn4.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName) + '/img/btn4.png'); WriteLn('Exibindo os objetos...'); Form.ShowModal; Form.Free; Form := nil; Application.Terminate; except WriteLn('ERRO!!! ACONTECEU ALGUMA COISA ERRADA NO SEU CODIGO.'); Sleep(5000); Application.Terminate; end; end.
Questionário em estatisticas em Pascal
Nenhum comentário foi encontrado.
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
Novidades Linux: Kernel 6.17, distros em ebulição e segurança em foco
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Orientação para instalar o Warsaw - módulo de proteção do Banco do Bra... (5)
systemd-resol... precisa ser reiniciado periodicamente (5)
Alguém que utilize o Warsaw do BB no Ubuntu 24.04 [RESOLVIDO] (6)
Fedora não reconhece James Donkey 102 Wireless Gaming Mouse (2)