Delphi 5 for Professionals/DELPHI5.iso/AddOns/Books/4/EX08.ZIP/CONTROL1/MAIN.PAS

Pascal/Delphi Source File | 1995-11-02 | 425 b | 29 lines

unit Main;

interface

uses
  WinTypes, WinProcs,
  Classes, Graphics, Controls,
  Printers, Menus, Forms, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1DblClick(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Edit1DblClick(Sender: TObject);
begin
  Edit1.Text := '┬√ ΣΓαµΣ√ ∙σδΩφ≤δΦ Γ ±≥≡εΩσ ≡σΣαΩ≥Φ≡εΓαφΦ ';
end;

end.