VCL FORMS APPLICATIONS
Ao entrar no ambiente e tentar iniciar um novo projeto, o desenvolvedor será confrontado com muito mais escolhas: VCL Forms, Windows Forms, Packages, ASP.NET Web Application, etc.
Para saber qual delas escolher, é preciso ter conhecimento prévio de algumas coisas: VCL Forms é o nome que a Borland deu à nova versão da VCL. Na prática, é o tipo de aplicação que vai proporcionar maior compatibilidade com os projetos anteriores vindos do Delphi 7 no novo ambiente.
Já as aplicações Windows Forms são as que proporcionam maior conforto para quem estiver vindo do C# ou do VB.NET. A biblioteca Windows Forms é o padrão que a Microsoft liberou com a plataforma .NET. Ao selecionar Windows Forms, entretanto, o programador não terá acesso a alguns dos componentes mais populares do Delphi.
FERRAMENTAS: TOOL PALETTE
STANDART: TMainMenu
Este componente é usado para apresentar um menu de opções para o usuário.
STANDART: TMemo
Este componente é usado para mostrar um texto na formulário que normalmente ocupe mais de uma linha.
DIALOGS: TOpenDialog
Este componente apresenta uma caixa de diálogo para que o usuário escolha um arquivo para abrir.
DIALOGS:TSaveDialog
Este componente apresenta uma caixa de diálogo para que o usuário possa salvar um arquivo.
DIALOGS:TFontDialog
Este componente apresenta uma caixa de diálogo para que o usuário tenha a possibilidade de modificar as características da fonte do texto.
DIALOGS:TColorDialog
Este componente apresenta uma caixa de diálogo para que o usuário tenha a possibilidade de modificar as características da cor do texto.
CRIANDO UM EDITOR DE TEXTOS SIMPLES
Vamos criar, no Delphi, um projeto utilizando (File/New/VCL Forms Application). Devemos criar um subdiretório e mandar salvar o programa neste diretório.
Em seguida criamos um TMainMenu para definir as opções utilizadas pelo usuário.
Além disso, um componente TMemo vai ser acrescentado ocupando toda a área do formulário.
1. File/New/VCL Forms Application.
2. Coloque um componente TMainMenu no projeto
3. Object Inspector/Caption
a. &Arquivo
b. &Abrir
c. &Salvar
d. –
e. Sai&r
STANDART: TMainMenu
Este componente é usado para apresentar um menu de opções para o usuário.
Evento Descrição
onClick Abrir1
onClick Salvar1
onClick Sair1
UNIDADES DE CÓDIGO: UNITS
TRECHO 1
procedure TForm1.Abrir1Click(Sender: TObject);
begin
if OpenDialog1.Execute = True then
txtEditor.Lines.LoadFromFile(OpenDialog1.FileName);
txtEditor.SetFocus;
end;
TRECHO 2
procedure TForm1.Salvar1Click(Sender: TObject);
begin
if SaveDialog1.Execute = True then
txtEditor.Lines.SaveToFile(SaveDialog1.FileName);
end;
TRECHO 3
procedure TForm1.Sair1Click(Sender: TObject);
begin
Form1.close;
end;
4. Coloque um componente TMemo no projeto
STANDART: TMemo
Este componente é usado para mostrar um texto na formulário que normalmente ocupe mais de uma linha.
Propriedade Descrição
Align alClient
Name Editor
ScrollBars ssVertical
WantTabs true
5. Coloque um OpenDialog no projeto
DIALOGS: TOpenDialog
Este componente apresenta uma caixa de diálogo para que o usuário escolha um arquivo para abrir.
Propriedade Descrição
Options.ofFileMustExist true
Filter ...
*somente arquivos existents
Filter Name Filter
Documento de texto *.txt
Todos os arquivos *.*
6. Coloque um SaveDialog no projeto
DIALOGS:TSaveDialog
Este componente apresenta uma caixa de diálogo para que o usuário possa salvar um arquivo.
Propriedade Descrição
Options.ofOverwritePrompt true
Filter ...
*se arquivo já existe, será avisado
Filter Name Filter
Documento de texto *.txt
Todos os arquivos *.*
7. Acrescente mais opções ao Menu.
8. Object Inspector/Caption
a. &Editar
b. &Fontes
c. &Cores
Evento Descrição
onClick Fontes1
onClick Cores1
Vamos inserir algumas opções para escolha de Fontes e Cor de Fundo.
9. Coloque um FontDialog da paleta Dialogs no projeto
UNIDADES DE CÓDIGO: UNITS
TRECHO 3
procedure TForm1.FonteClick(Sender: TObject);
begin
if FontDialog1.Execute then
txtEditor.Font := FontDialog1.Font;
end;
10. Coloque um ColorDialog da paleta Dialogs no projeto
TRECHO 4
procedure TForm1.ColorClick(Sender: TObject);
begin
if ColorDialog1.Execute then
txtEditor.Color := ColorDialog1.Color;
Form1.Color := txtEditor.Color;
end;
LEITURA RECOMENDADA
http://ww.clubedelphi.net (http://ww.clubedelphi.net)
http://www.delphi.eti.br (http://www.delphi.eti.br)
http://www.delphibr.com.br (http://www.delphibr.com.br)
http://www.firebase.com.br (http://www.firebase.com.br)