Пішін ќасиеттері

procedure TForm1.Button4Click(Sender: TObject);

begin

edit1.enabled:=true;

end;
procedure TForm1.Button5Click(Sender: TObject);

begin

edit1.CharCase:= ecUpperCase;

end;
procedure TForm1.Button6Click(Sender: TObject);

begin

edit1.CharCase:= ecNormal;

end;
procedure TForm1.Button7Click(Sender: TObject);

begin

edit1.PasswordChar:='*';

end;
procedure TForm1.Button8Click(Sender: TObject);

begin

edit1.PasswordChar:=#0;

end;
procedure TForm1.Button9Click(Sender: TObject);

begin

Fd1.Execute;

edit1.Font:=Fd1.Font;

end;
procedure TForm1.Button10Click(Sender: TObject);

begin

Edit1.Undo;

end;
procedure TForm1.Button11Click(Sender: TObject);

begin

edit1.Clear;

end;
procedure TForm1.Button12Click(Sender: TObject);

begin

edit2.Text:=edit1.SelText;

end;
procedure TForm1.Edit1Change(Sender: TObject);

begin

edit2.Text:=edit1.Text;

end;
procedure TForm1.Button13Click(Sender: TObject);

begin

edit1.CopyToClipboard;

end;
procedure TForm1.Button14Click(Sender: TObject);

begin

edit2.PasteFromClipboard;

end;