Java/Swing - Delphi
Exemple en Delphi sur
les zones de texte multi-lignes

---

Objectif : Application simple Delphi utilisant un objet de classe TMemo.

---

• Même exemple, code source en Java Swing

---

La fenêtre comporte un bouton (Button1:TButton), un éditeurs de texte mono-ligne (Edit1:TEdit) et un éditeur de texte multi-lignes (Memo1 : TMemo):

L'application consiste après qu'un texte ait été entré dans l'Edit1 (jaune), le clic sur le bouton Button1 déclenche l'ajout de ce texte dans le Memo1. Dès que le texte dépasse les limites visuelles du Memo, celui-ci utilise automatiquement une barre de défilement horizontale et une barre de défilement vertical grâce à sa gestion intégrée de deux objets de la classe TScrollBar .

 
 

Le code source Delphi

Schémas UML du projet

 

unit ExempleTexeMulti;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(Edit1.text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.ScrollBars:=ssBoth;
end;

end.
 
 

Remonter