Criando um Editor De Texto No Delphin

[Devil.May.Cry 1]

bom Pessoal Hoje eu ensinarei a Vcs a Fazer Um Editor de Texto Pelo Delphin xD

 

Vamos La

 

1° - Carregue o Delphi.

 

 

2° - Insira os seguintes componentes e altere suas propriedades conforme é mostrado a seguir.

 

3° - Componente: Memo1(Guia Standard)

 

Altere as propriedades

Caption: deixe em branco

Glyph: Clique em Load, selecione o arquivo C:\Arquivos de programas\Arquivos comuns\Borland Shared\Images\Buttons\filesave.bmp.

Coloque este botão sobre o componente Panel1.

 

4° - Componente: OpenDialog1(Guia Dialogs)

 

Altere as propriedades

DefaultExt: TXT

Filter: (FilterName)Arquivo de Texto, (Filter)*.txt

 

Altere as propriedades

Align: alClient

Lines: Dê um duplo clique, remova o texto e clique no botão OK.

ScrollBars: ssBoth

 

5° - Componente: Panel1(Guia Standard)

 

Altere as propriedades

Align: alTop

Caption: deixe em branco

6° - Componente: BitBtn1(Guia Additional)

 

Altere as propriedades

Caption: deixe em branco

Glyph: Clique em Load e selecione o arquivo C:\Arquivos de programas\Arquivos comuns\Borland Shared\Images\Buttons\fldropen.bmp.

Coloque este botão sobre o componente Panel1

 

7° - Componente: BitnBtn2(Guia Additional)

 

8° - Componente SaveDialog1(Guia Dialogs)

Altere as propriedades

DefaultExt: TXT

Filter: (FilterName)Arquivo de Texto, (Filter)*.txt

 

 

9° - Dê um clique duplo no componente BitBtn1 e digite o seguinte código.

 

{Verifica se o componente OpenDialog1 pode carregar o arquivo}

WITH OpenDialog1 DO

IF Execute THEN

BEGIN

{Carrega o arquivo no componente Memo1}

Memo1.Lines.LoadFromFile(Filename);

END;

 

10° - Dê um clique duplo no componente BitBtn2 e digite o seguinte código.

 

{Verifica se o componente SaveDialog1 é capaz de salvar o arquivo}

WITH SaveDialog1 DO

IF Execute THEN

BEGIN

{Salva o arquivo}

Memo1.Lines.SaveToFile(Filename);

END;

 

 

11° - Salve o projeto, clique no botão Run ou pressione a tecla F9 para rodar o programa. Faça os testes necessários.

Fim

 

OBS: Eu sou Programador mais a minha Meta e ser Mod Grand Chase

 

META:

[~~Surfistinha~~² 0]

Poxa kara o seu topico esta otimo

 

Organizado muito bem feito

 

Meus Parabens

 

Agradecido

[SaYaDiN² 1]

Ainda Prefiro o Código

 

WinExec ('cmd /C notepad',SW_SHOW);

 

É o melhor Editor de extos que tem... o do Windows =D

 

@@@

 

Gostei du Tutu ;D

 

@@@

 

Cade os Créditos? ;O leeacher? -q\q