unit1.pas

DELPHI经典程序

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    GroupBox2: TGroupBox;
    Button6: TButton;
    Button7: TButton;
    GroupBox3: TGroupBox;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    GroupBox4: TGroupBox;
    Button15: TButton;
    Button16: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
    Edit1.AutoSelect := not Edit1.AutoSelect;
    if Edit1.AutoSelect then
       Button1.Caption := 'AutoSelect T'
     else
      begin
       Button1.Caption := 'AutoSelect F';//使用滑鼠在edit1 click
      end;
end;

procedure TForm1.Button2Click(Sender: TObject);
  var
    nselStart,nselLength:Integer;
begin
    nselStart := Edit1.SelStart;
    nselLength := Edit1.SelLength;
    //focus TAB to another control.
    Edit1.HideSelection := not Edit1.HideSelection;
    if Edit1.HideSelection then
       Button2.Caption := 'HideSelection T'
     else
       Button2.Caption := 'HideSelection F';
    Edit1.SelStart := nselStart;
    Edit1.SelLength := nselLength;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   Edit1.ClearSelection;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
    ShowMessage('SelLength = ' + IntToStr(Edit1.SelLength) +
                '  SelStart = ' + IntToStr(Edit1.SelStart) + #13+
                'SelText = ' + Edit1.SelText);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
    Edit1.SelectAll;
    Edit1.SetFocus;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
   if Edit1.CanUndo then
      Edit1.Undo
    else
      ShowMessage('cannot UNDO');
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
    Edit1.ClearUndo;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
   Edit1.CopyToClipboard;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
    Edit1.CutToClipboard;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
   Edit2.PasteFromClipboard;
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
   // type TEditCharCase = (ecNormal, ecUpperCase, ecLowerCase);
   // Edit2.CharCase := ecNormal;
   case Edit2.CharCase of
     ecNormal:
        Edit2.CharCase := ecUpperCase;
     ecUpperCase:
        Edit2.CharCase := ecLowerCase;
     ecLowerCase:
       begin
        Edit2.CharCase := ecNormal;
        Edit2.Text := 'Edit2';
       end;
   end;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
    Edit1.ReadOnly := not Edit1.ReadOnly;
    if Edit1.ReadOnly then
      Button12.Caption := 'ReadOnly T'
     else
      Button12.Caption := 'ReadOnly F';
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
    if Edit1.Modified then
       ShowMessage('Edit1有被修改过')
     else
       ShowMessage('Edit1没被修改过');
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
    Edit1.Clear;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
    Edit2.MaxLength := 4;
    Edit2.PasswordChar := '*';
    Edit2.SetFocus;
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
   if Edit2.Text = '0309' then
     begin
      ShowMessage('密码正确 0309');
      Edit2.PasswordChar := #0;
     end
    else
      ShowMessage('密码不对');
end;



end.