Criando Objetos 2
Publicado por Daniel 21/02/2005
[ Hits: 4.132 ]
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.
ZCodEdit - Editor de textos com sintaxe HTML e Pascal
Visualizador De Imagem feito no Lazarus (Delphi 7 para Linux)
Nenhum comentário foi encontrado.
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando e usando o Dconf Editor, o "regedit" para Linux
Como instalar o navegador TOR no seu Linux
Instalando Zoom Client no Ubuntu 24.04 LTS
Qual a relevancia dos valores de bogomips com os Mhz e Ghz[DUVIDA] (2)
O que é isso no meu navegador? (4)