Criando Objetos 2
Publicado por Daniel 21/02/2005
[ Hits: 4.317 ]
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 imagens feito no Lazarus
Visualizador De Imagem feito no Lazarus (Delphi 7 para Linux)
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
O que você está ouvindo agora? [2] (188)
warsaw parou de funcionar após atualização do sistema (solução) (10)