NUNCA MAIS PASSE RAIVA POR NÃO CONSEGUIR RESOLVER UM PROBLEMA COM O EXCEL - GARANTIDO!

UNIVERSIDADE DO VBA - Domine o VBA no Excel Criando Sistemas Completos - Passo a Passo - CLIQUE AQUI

Você está em: PrincipalArtigosLivrodelphibas › Capítulo 4 : 03
Quer receber novidades e e-books gratuitos?
« Anterior Δ Página principal ¤ Índice Próxima »
Delphi Básico
Autor: Rodrigo Costa e Silvio Ferreira
Lição 24 de 29 - Criando o formulário “Sobre”

Para concluir nosso editor, vamos criar um “formulário de ajuda”. Geralmente estes formulários apenas trazem informações sobre o fabricante. Portanto, adicione um novo formulário ao projeto, mude a propriedade name dele para FormSobre e salve-o como Unit_Sobre.

Insira os seguintes objetos:

1 Panel
4 Label
1 Image
1 Button

Altere a propriedade BevelOuter e BevelInner para bvLowered em seguida organize os objetos semelhante a figura abaixo:


Form sobre

Dê um clique no Image1 e vá até a propriedade Picture e clique no botão “...”. Será aberta uma janela, nela clique na opção load. Então procure a imagem que desejar. Selecione o botão Ok e digite o código baixo em seu evento Onclick: close; Isto fará com que o formulário seja fechado e o programa volte para o formulário anterior. Para chamar o formulário Sobre, digite o código: formsobre.showmodal; no evento OnClick do Menu Ajuda > Sobre do Form_Editor. Quando você compilar o programa, o Delphi vai lhe informar que o Form_editor está fazendo referência ao Form_Sobre e perguntará se deseja fazer esta associação, clique em “yes”.

Abaixo segue o código completo da Unit_editor :

unit Unit_editor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, ImgList, Menus, StdCtrls;

type
  TForm_editor = class(TForm)
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    ColorDialog1: TColorDialog;
    FontDialog1: TFontDialog;
    Arquivo1: TMenuItem;
    Editar1: TMenuItem;
    Formatar1: TMenuItem;
    Ajuda1: TMenuItem;
    Novo1: TMenuItem;
    Abrir1: TMenuItem;
    Salvar1: TMenuItem;
    N1: TMenuItem;
    Sair1: TMenuItem;
    Copiar1: TMenuItem;
    Recortar1: TMenuItem;
    Colar1: TMenuItem;
    Fonte1: TMenuItem;
    Sobre1: TMenuItem;
    Fundo1: TMenuItem;
    Azul1: TMenuItem;
    Vermelho1: TMenuItem;
    Branco1: TMenuItem;
    Amarelo1: TMenuItem;
    Verde1: TMenuItem;
    N2: TMenuItem;
    Outra1: TMenuItem;
    bnovo: TToolButton;
    babrir: TToolButton;
    bsalvar: TToolButton;
    brecortar: TToolButton;
    bcolar: TToolButton;
    bsair: TToolButton;
    bcopiar: TToolButton;
    ToolButton9: TToolButton;
    ToolButton5: TToolButton;
    bsobre: TToolButton;
    ToolButton2: TToolButton;
    procedure Novo1Click(Sender: TObject);
    procedure Abrir1Click(Sender: TObject);
    procedure Salvar1Click(Sender: TObject);
    procedure Sair1Click(Sender: TObject);
    procedure Copiar1Click(Sender: TObject);
    procedure Recortar1Click(Sender: TObject);
    procedure Colar1Click(Sender: TObject);
    procedure Fonte1Click(Sender: TObject);
    procedure Azul1Click(Sender: TObject);
    procedure Vermelho1Click(Sender: TObject);
    procedure Branco1Click(Sender: TObject);
    procedure Amarelo1Click(Sender: TObject);
    procedure Verde1Click(Sender: TObject);
    procedure Outra1Click(Sender: TObject);
    procedure Sobre1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_editor: TForm_editor;

implementation

uses Unit_sobre;

{$R *.dfm}

procedure TForm_editor.Novo1Click(Sender: TObject);
begin
  memo1.Clear;
end;

procedure TForm_editor.Abrir1Click(Sender: TObject);
begin
  opendialog1.Execute;
  memo1.Lines.LoadFromFile(opendialog1.FileName);
  memo1.SetFocus;
  statusbar1.Panels[0].Text:='Arquivo Aberto';
end;

procedure TForm_editor.Salvar1Click(Sender: TObject);
var
  nome_arquivo:string;
  i:integer;
begin

  savedialog1.Execute;
  nome_arquivo:=savedialog1.FileName;
  i:=pos('.',nome_arquivo);

  if i=0 then
    memo1.Lines.SaveToFile(nome_arquivo+'.txt')
  else
    memo1.Lines.SaveToFile(nome_arquivo);

  statusbar1.Panels[0].Text:='Arquivo Salvo';

end;

procedure TForm_editor.Sair1Click(Sender: TObject);
begin
  close;
end;

procedure TForm_editor.Copiar1Click(Sender: TObject);
begin
  memo1.CopyToClipboard;
end;

procedure TForm_editor.Recortar1Click(Sender: TObject);
begin
  memo1.CutToClipboard;
end;

procedure TForm_editor.Colar1Click(Sender: TObject);
begin
  memo1.PasteFromClipboard;
end;

procedure TForm_editor.Fonte1Click(Sender: TObject);
begin
  if fontdialog1.Execute then
    memo1.Font:=fontdialog1.Font;
end;

procedure TForm_editor.Azul1Click(Sender: TObject);
begin
  memo1.Color:=clBlue;
end;

procedure TForm_editor.Vermelho1Click(Sender: TObject);
begin
  memo1.Color:=clRed;
end;

procedure TForm_editor.Branco1Click(Sender: TObject);
begin
  memo1.Color:=clWhite;
end;

procedure TForm_editor.Amarelo1Click(Sender: TObject);
begin
  memo1.Color:=clYellow;
end;

procedure TForm_editor.Verde1Click(Sender: TObject);
begin
  memo1.Color:=clGreen;
end;

procedure TForm_editor.Outra1Click(Sender: TObject);
begin
  if colorDialog1.Execute then
    memo1.Color:=colordialog1.Color;
end;

procedure TForm_editor.Sobre1Click(Sender: TObject);
begin
  formsobre.showmodal;
end;

end.

« Anterior Δ Página principal ¤ Índice Próxima »

* Você pode baixar (fazer download) do conteúdo completo deste curso, em formato PDF, com 179 páginas, comprando o seguinte e-book:

DELPHI BÁSICO

LIVROS INDICADOS DE DELPHI:

Gostou deste artigo?

Quer receber novidades e e-books gratuitos?

Cursos Online

  • Banco de Dados
  • Carreira
  • Criação/Web
  • Excel/Projetos
  • Formação
  • + Todas as categorias
  • Contato: Telefone: (51) 3717-3796 | E-mail: webmaster@juliobattisti.com.br | Whatsapp: (51) 99627-3434

    Júlio Battisti Livros e Cursos Ltda | CNPJ: 08.916.484/0001-25 | Rua Vereador Ivo Cláudio Weigel, 537 - Universitário, Santa Cruz do Sul/RS, CEP: 96816-208

    Todos os direitos reservados, Júlio Battisti 2001-2019 ®

    [LIVRO]: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2010 - PASSO-A-PASSO

    APRENDA COM JULIO BATTISTI - 1124 PÁGINAS: CLIQUE AQUI