Java/Swing - Delphi
Exemple en Delphi sur
les zones de texte mono-ligne

Objectif : Application simple Delphi utilisant deux objets de classe TEdit.


La fenêtre comporte un bouton (Button1:TButton) et deux éditeurs de texte mono-ligne (Edit1, Edit2:TEdit):

L'application consiste après qu'un texte ait été entré dans l'Edit1 (jaune), le clic sur le bouton Button1 déclenche la recopie de ce texte dans Edit2 (bleu), ce dernier se mettant ensuite en lecture seule .


 
 

Le code source Delphi

Schémas UML du projet

 

unit ExempleTexetMono;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    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
 Edit2.Text:=Edit1.Text;
 Edit2.ReadOnly:=true
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Edit1.Color:=clYellow;
 Edit2.Color:=clAqua
end;

end.
 
 

Remonter