Delphi Editeur1

 (CD-ROMDelphi.µediteur)

Objectif : construire un mini éditeur de texte

La fiche principale, le code associé dans la unit
 

Exécuter le programme
 

La fiche principale du  projet :

                                                                                                Remonter 

Le code de la Unit fiche principale :

unit Uedit1;

 interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, Menus, StdCtrls;

 type
  TForm1 = class(TForm)
    TextEditeur: TMemo;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    MainMenu1: TMainMenu;
    Fichier1: TMenuItem;
    Nouveau1: TMenuItem;
    Ouvrir1: TMenuItem;
    Enregistrersous1: TMenuItem;
    N1: TMenuItem;
    Quitter1: TMenuItem;
    Edition1: TMenuItem;
    Couper1: TMenuItem;
    Copier1: TMenuItem;
    Coller1: TMenuItem;
    procedure Quitter1Click(Sender: TObject);
    procedure Ouvrir1Click(Sender: TObject);
    procedure Enregistrersous1Click(Sender: TObject);
    procedure Couper1Click(Sender: TObject);
    procedure Copier1Click(Sender: TObject);
    procedure Coller1Click(Sender: TObject);
    procedure Nouveau1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 var
  Form1: TForm1;

 implementation

{$R *.DFM}

 procedure TForm1.Quitter1Click(Sender: TObject);
begin
  Close;
end;

 procedure TForm1.Ouvrir1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
 begin
  Enregistrersous1.enabled:=true;
  TextEditeur.Lines.LoadFromFile(OpenDialog1.FileName);
 end
  end;

 procedure TForm1.Enregistrersous1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
 begin
  Enregistrersous1.enabled:=false;
  TextEditeur.Lines.SaveToFile( SaveDialog1.FileName );
 end
end;

procedure TForm1.Couper1Click(Sender: TObject);
begin
  TextEditeur.CutToClipboard;
end;

 procedure TForm1.Copier1Click(Sender: TObject);
begin
  TextEditeur.CopyToClipboard;
end;

 procedure TForm1.Coller1Click(Sender: TObject);
begin
  TextEditeur.PasteFromClipboard;
end;

 procedure TForm1.Nouveau1Click(Sender: TObject);
begin
 TextEditeur.text:='';
 Enregistrersous1.enabled:=true
end;
end.                                                                         Remonter